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„Neue Besen kehren 
gut‘ — Sie sind gerade 
dabei zu urteilen, ob die- 
ses Sprichwort wahr ist. 
Wie Sie an dieser Aus- 
gabe sehen können, hat 
sich SCHNEIDER 

AKTIV inhaltlich wei- 
ter verändert. Die 

neue Redaktion konnte 
im Januar nach vielen 
Schwierigkeiten die 
Arbeit in den ebenso 
neuen Redaktionsräumen 
aufnehmen. Aber wir be- 
nötigten auch Ihre Hilfe, 
Ihre Meinung zu unse- 
rem Heft. Mit der Frage- 
bogenaktion, bei der es 
einen Drucker zu gewin- 
nen gab, forderten wir 
Sie auf, uns Ihre Interes- 
sengebiete zu nennen. 
Mittlerweile haben wir 
uns schon einen groben 
Überblick verschaffen 
können und die Ergebnis- 
se halfen bei der Erstel- 
lung dieser Ausgabe. Wir 
werden selbstverständ- 
lich die komplette Aus- 
wertung im nächsten 
Heft präsentieren, vorab 
jedoch einmel die The- 
men, die Sie sich am mei- 
sten wünschten. Auch 
wenn die Verwirklichung 
nicht von heute auf mor- 
gen stattfinden kann, beu- 
gen wir uns natürlich 
gerne Ihrem „Volksent- 
scheid”’ und vieles von 
dem, was Ihnen auf dem 
Herzen lag, war auch un- 
ser Wunsch. Kein Wunder, 
daß wir da sofort reagie- 
ren wollten. 

Wir werden uns aus- 
führlich dem Thema 
CP/M widmen. In Zu- 
kunft werden Sie Tips 
und Tricks über das Be- 
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triebssystem und Soft- 
warereviews der passen- 
den Programme lesen 
können. Einen Anfang 
haben wir in dieser Aus- 
gabe mit dem Programm 
dBase gemacht, einem 
„Klassiker‘‘. Gerade aber 
bei Programmen, die 
schon lange auf dem 
Markt sind, vermißt der 
Einsteiger einen grundle- 
genden Bericht, man 

liest meist nur ergänzen- 
den Tips und Tricks. 

Wer aber über CP/M 
spricht, der muß auch an 
die Firma Vortex den- 
ken. Vortex tat viel, 

um dem User die notwen- 
dige Aufrüstung zu er- 
möglichen. Besonders der 
Besitzer eines CPC 464 
war ja dringend auf die 
Erweiterung mit einer 
Speicherkarte angewiesen. 
Dem CPC 6128 stehen 
zwar 64K mehr zur Ver- 
fügung, aber für das Arbei- 
ten mit dBase empfiehlt 
es sich, noch etwas drauf- 
zupacken. Dies führte zum 
Angebot der Speicherer- 
weiterung, speicherinten- 
siver Laufwerke und hat 
mit dem gerade erst ver- 
fügbaren, neuen „Para”- 
Programm wohl noch lan- 
ge nicht aufgehört. Vor- 
tex und CP/M bilden al- 
so ein Gespann, das wir 
nicht auseinanderreißen 
wollen. 

Gerade die — ach so trok- 
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stößt auf Ihr Interesse. Sie 
werden diese Seiten in 
SCHNEIDER AKTIV 


wort: „Ein Bild sagt 
mehr als tausend Wor- 
te’. Wir werden uns be- 


nicht mehr vermissen. Dabei mühen, möglichst jeden 


planen wir jedoch nicht, 
Sie mit einem langweili- 
gen Kurs anzuöden. Wir 
möchten, daß Sie sofort 
etwas von dem nachvoll- 
ziehen können, was wir 
Ihnen auf den „MC-Sei- 
ten” offerieren. Ausgabe 
für Ausgabe finden Sie 
also Routinen, die in sich 
abgeschlossen sind, zum 
Einbau in eigene Pro- 
gramme. 

Also kein Kurs im übli- 
chen Sinne, aber wer re- 
gelmäßig mitmacht, wird 
den Einstieg in Assembler 
schaffen. Werden auf 
den „MC-Seiten‘’ größere 
Utilities gebracht, werden 
Sie diese natürlich auch 
in der Softbox wiederfin- 
den. Kleinere Tips und 
Tricks in Assemblercode 
werden wir allerdings 
nur drucken. 

Damit sind wir auch 
schon beim Kassettenser- 
vice und da gibt es eini- 
ges zu versprechen. 
Erstens: Von unserer 
Seite aus wird in Zukunft 
alles für eine schnellst- 
mögliche Auslieferung 
unternommen. Zweitens: 
Wir werden die Softbox 
mit einem Inhaltsver- 
zeichnis versehen. Wenn 
Sie (ab dieser Ausgabe) 
RUN“INHALT eingeben, 
erscheint ein Lademenü, 
auf daß Ihnen keine wei- 
tere Arbeit mehr ent- 
steht. 

So ernsthaft es sich mit 
dem CPC arbeiten läßt, 
er wird auch zur Ent- 
spannung beim Spiel ge- 
nutzt. Mehr und ausführ- 
lichere Softwaretests 

war eine oft zu lesen- 

de Forderung und betraf 
sowohl die Spiele als 
auch die Anwendungs- 
software. Dabei stand 
vor allem der Wunsch 
nach Fotos oder Bild- 
schirmabzügen im Vorder- 
grund, denn wie sagt 


kene — Maschinensprache— schon ein altes Sprich- 


Bericht durch Abbildun- 
gen aufzulockern. Ledig- 
lich bei den neu einzu- 
führenden Buchbespre- 
chungen werden wir ge- 
legentlich auf Schwierig- 
keiten stoßen, da diese 
selbst nicht immer aus- 
reichend oder interessant 
/llustriert sind. 

Daß der Schneider PC 
1512 ein Verkaufserfolg 
werden würde, daran 
zweifelte wohl keiner. 
Immerhin bietet er bei 
aller Kompatibilität eini- 
ges mehr als sein großes 
Vorbild. Aber daß selbst 
unter den CPC-Besitzern 
unserer Leser viele sind, 
die sich über die MS- 
DOS-Maschine informie- 
ren wollen, dies war uns 
neu. Sowohl für Besitzer 
als auch für jene „‚Neu- 
gierigen‘’ sind unsere 
PC-Seiten gedacht. Hier 
werden wir versuchen, 
Ihnen die Fähigkeiten des 
bislang letzten Schneider- 
produktes umfassend zu 
präsentieren. Ob es sich 
um das neue BASIC2 
handelt oder um den Test 
bewährter MS-DOS-Soft- 
ware, wir wollen Sie auf 
dem Laufenden halten. 
Ein paar Seiten von 
SCHNEIDER AKTIV 
werden Ihnen gehören, 
wir haben diese mit „Dia- 
log“ betitelt. Uns interes- 
siert Ihre Meinung am 
Heft, Ihre Kritik — oder 
was schöner wäre — Ihre 
Verbesserungsvorschläge 
— und wir wollen auf 
Ihre Fragen eingehen. 


Und nicht vergessen: Sind 
Sie zufrieden, sagen Sie 

es weiter. Sind Sie es nicht, 
sagen Sie es uns. 

Bis zum nächsten Heft 

mit der nächsten 
Überraschung, 

Ihr SCHNEIDER AKTIV- 
Team 
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DIALOG 


Clubnews 

Hardcopy gesucht 
Bedienungsfehler 

Softbox auch für den 1512? 
Defekter Computer — was tun? 
Video-Digitzer auch mit 
Kassette? 

Speicherroutinen 

Preisvergleich 

Schnittstellen- 


Umwandler ab Seite 11 
TEST & TECHNIK 

Aliens: 

Das Spiel des Monats ab Seite 4 
Startexter: 

Wirklich ein Textstar? ab Seite 8 
Vortex-Festplatte: 

Aufschreiben — Einstecken 

— Fertig ab Seite 73 
It’sa Knockout: 

Farbenprächtiger 

Niederschlag ab Seite 76 
Rock'n Wrestle: 

Catchen Sie mal ab Seite 76 
SERIE & SERVICE 

dBase II: 

Opa ist immer noch 

der Knüller ab Seite 6 
Maschinen-Sprachkurs: 

kilo ist nicht Kilo! ab Seite 18 
Bücherkiste: 

Für Sie gelesen auf Seite 21 
Edlin: 

Unser MS-DOS-Brevier ab Seite 22 
Börse: 

Zum Suchen und 

Finden auf den Seiten 69 und 72 
Grüß Gott aufSeite 2 
Geschäftsbedingungen: 

Stoppt endlich die 

Computer-Mafia ab Seite 14 
Glosse: 

Vergessen Sie alles über 

Basic — FW hat eine neue 

Sprache entdeckt ab Seite 25 
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Getestet: 
Sybex 
Star-Texter 


Titelfoto: Okapia 


Alien 


20 MB per Steckkarte 
3 
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„.test‘ und sein „Test“: 
„test‘' hat wieder 
zugeschlagen 


TIPS & TRICKS 


Bild abspeichern — aber wie? 


auf Seite 79 


Fehler bei DECS Seiten 16/17 
Steuerzeichen — 

warum denn? auf Seite 24 
Amstrad übervorsichtig auf Seite 38 
Einfache Pausenfunktion 

Mehrfarbiges Zeichen Seiten 70/71 
Softbox-Wissen auf Seite 75 


LISTINGS 


Budget-Manager: 
Elektronisches Ausgaben- 
buch mit viel Komfort ab Seite 26 
3D-Schrift: 

Kleine Routine für bessere 
Titelbilder auf Seite 32 
Wallrunner: 
Jonny wird gejagt ab Seite 33 
Giro: 

Kontrollieren Sie Ihren 
aktuellen Kontostand ab Seite 37 
Werbung: 

Laufschrift für die CPC ab Seite 43 
Folio: 

Klarsichtfolien für den 
Overhead-Projektor 
selbst produziert ab Seite 47 
Raumplan: 

Richten Sie Ihre Wohnung 
ein — per Computer ab Seite 53 
Monopoly: 

Das bekannte Spiel 

— diesmal per Computer ab Seite 58 
Hugo: 

Ein Wurm frißt Noten 
und macht Musik. 
„Wetten, daß’ Sie den 
Autor kennen? ab Seite 62 


Impressum auf Seite 17 


Einer Teilauflage liegt ein Prospekt der 
Firma Westfalica Technica bei. 


TEST 


Seit Ghostbusters marschiert Computer- 
software, die sich an einem Filmerfolg orientiert, 
auf der Erfolgsstraße. Seit diesem Spiel ist aber auch 
jedem klar geworden, wie genau man sich derlei 
Spiele anschauen muß, bevor man das Geld auf den 
Tisch legt. Eines der letzten Produkte dieser Art ist 
„Aliens, the Computer Game. 


Alien (das Untier war da- 
mals noch alleine) war 
wohl einer der besten 
SF-Horrorfilme dieses 
Jahrzehntes. Kein Wun- 
der, daß Hollywood 
schnell reagierte und den 
Nachfolgefilm Aliens 
drehte. Der Plural ist be- 
rechtigt, denn hier treten 
die Monster tatsächlich 
scharenweise auf. 

Auch der zweite Teil des 
Gruselmärchens konnte 
das Kinopublikum be- 
geistern und geriet zum 
Kassenerfolg. Uns be- 
schäftigt nun natürlich, 
wie das Spiel geraten ist, 
aber da nicht jeder seine 
Software an der Kino- 
kasse bestellt, kurz die 
Vorgeschichte. 

Offizier Ripley überlebt 
als Einzige die Attacken 
des Alien auf einem 
einsamen, lernen Plane- 
ten. Als sie von Rettungs- 
mannschaften gefunden 
und aus dem Tiefschlaf 
geholt wird, muß sie er- 
fahren, dat der Heimat- 
planet des Weltraum- 
monsters gar nicht mehr 
so unbelebt ist. Wie Be- 
hörden nun einmal sind 

- und anscheinend in 
Zukunft auch sein wer- 
den — hat man auf dem 
entfernten Gestirn eine 
Siedlerkolonie eingerich- 
tet. Fräulein Ripleys 
Warnungen kommen an- 
gesichts dieser Ignoranz 
zu spät, der Kontakt zu 
den Siedlern bricht ab 
und eine Forschungsex- 
pedition soll der Ursache 
des Schweigens auf den 
Grund gehen. Mit von der 
Partie ist besagtes Fräu- 
lein Heldin. Den Anfüh- 
rer der Mission müssen 


Sie spielen. Seien Sie 
froh darum, denn im Ver- 
lauf dieser Monster- 
schlacht ist dies der beste 
Posten. Die Kolonie be- 
steht aus etwa 250 Räu- 
men, die symmetrisch 
angeordnet sind. Diese 
Symetrie mag nach einer 
Weile helfen, sich in den 
Screens zurechtzufinden, 
bis dahin sind aber einige 
erfolglose Durchgänge zu 
absolvieren. Ganz neben- 
bei, Sie müssen Raum 
248 aufsuchen, um dort 
die „Alienmutter‘* zu 
töten. Um den Einsatz zu 
führen, steht Ihnen die 
Leitzentrale des MTOB 
zur Verfügung, eine mobi- 
le taktische Operations- 
Basis. Die technischen 
Möglichkeiten des Fahr- 
zeuges zeigt Ihnen der 
CPC. In der unteren Bild- 
schirmhälfte werden Ih- 
nen die Personaldaten 
der Rettungscrew darge- 
stellt. Diese Daten zeigen 
den Aufenthaltsort in 
Entfernung zum MTOB 
und den Bio-Monitor 

der Person. Letzterer ist 
besonders wichtig, denn 
hier läßt sich ablesen, ob 
der oder die betreffende 
in Gefahr oder zu er- 
schöpft ist. 

Die Mitte dieses Bild- 
schirmteils nimmt ein 
Porträt des aktiven Mann- 
schaftsmitgliedes ein. 
Auch hier ist wieder der 
Biofunktionsplotter zu 
finden, der genauen Auf- 
schluß über die Kondi- 
tion gibt. Auch der Mu- 
nitionsvorrat spielt eine 
Rolle, er wird rechts ne- 
ben dem Porträt darge- 
stellt. Was diese ‚aktive‘ 
Person mitmachen muß, 
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vertolgen Sie in der obe- 
ren Hälfte des Monitors. 
Denn jeder, der sich auf 
dieses Himmelfahrtkom- 
mando begibt — schicken 
läßt, sollte man sagen — 
trägt an seinem Raum- 
helm eine transportable 
Kamera, die das Bild in 
das Einsatzfahrzeug über- 
trägt. Zumeist ist dies 
eine ruhige Szene. Ver- 
schlossene Türen können 
mittels des Feuerknopfes 
geöffnet werden, mit der 
Leertaste betritt der Aus- 
erwähnte den nächsten 
Raum. Es ist jedoch auch 
möglich, gleich mehrere 
Räume auf einmal zu 
durchqueren, indem man 
eine Zahl (1-9), die Rich- 
tung (N,S,W,O) eingibt 
und anschließend die Leer- 
taste niederdrückt. Aller- 
dings ermüden sehr wei- 
te Entfernungen den ak- 
tiven Kämpfer auch stark. 
Man sollte ihm rechtzei- 
tig eine Ruhepause gön- 
nen, damit er für alle 
Eventualitäten gerüstet 
ist. Behalten Sie ihn 

aber im Auge! Wechselt 
der Bio-Monitor seine An- 
zeige auf gelb, ist das 
Mannschaftsmitglied 
nicht mehr zu retten. Er 
wurde von Aliens gefan- 
gen und befruchtet. 

Die Aliens werden um so 
aktiver, je weiter Sie Ihre 
Leute vorschicken. Sie 
greifen in mehreren, im- 
mer dichter aufeinander- 
folgenden, Wellen an. 
Zwar ist jeder der Crew 
mit einem Distanzmeß- 
gerät ausgestattet, doch 
dies kann nur eine kleine 
Hilfe sein, um nicht über- 
rascht zu werden. Den 
Außerirdischen gilt es 
sich zu stellen und da 
zählt nur die Feuerkraft 
des Smart-Gun, der fik- 
tiven Superwaffe. Wie 
wenig dieses Gewehr ge- 
gen eines der Monster aus- 
richten kann, werden Sie 
zu Beginn des Spieles oft 
feststellen. Oft genug 
werden Sie das Spiel oh- 
ne Überlebende beenden. 
Als kleiner Tip soll des- 
halb der Name Bishop 
dienen, der mit dem 
Buchstaben I aufgerufen 
wird, den Helden zu 
spielen. Dieser Bishop ist 


nämlich nichts anderes als 
ein Android, ein Roboter 
in Menschengestalt, mit 
schnellen Reflexen. Nut- 
zen Sie seine Überlegen- 
heit, aber vergeuden Sie 
den Mann auch nicht vor- 
zeitig. Er ist einer der 
Zuverlässigsten. 

„Aliens“ ist — das darf 
man ohne Übertreibung 
sagen — eines der besten 
Spiele, die in letzter Zeit 
auf den Markt gekommen 
sind. Die gekonnte Mi- 
schung aus Labyrinth-, 
Action- und Strategie- 
spiel dürfte jeden anspre- 
chen. Nach einigen 

Flops von Filmsoftware 
liegt hier endlich wieder 
mal ein Programm vor, 
das sich nicht am Markt- 
erfolg des Kinostückes 
anhängt, sondern tatsäch- 
lich in der Lage ist, die 
Geschichte nachzuvoll- 
ziehen. Natürlich wird 

Sie kaum das kalte Grau- 
en packen, wie es Ihnen 
im dunklen Kinosaal pas- 
sieren kann, aber nach 
einer Viertelstunde inten- 
siven Spieles werden Sie 
merken, daf3 auch der 
CPC Stimmung erzeu- 
gen kann. Sei es auch eine 
düstere, weil gefährliche 
Atmosphäre. 


FAZIT 


Viel trägt dazu die 
Soundprogrammierung 
bei. Zwar geschieht hier 
nichts Musikalisches, 
aber die Töne unterstüt- 
zen als Geräuschkulisse 
die Szenerie auf das 
Beste. Grafisch hat das 
Spiel einiges zu bieten. 
Bereits die Porträts der 
Mannschaftsmitglieder 
sind ausgezeichnet ge- 
lungen und was sich im 
„Aktionsbildschirm‘ ab- 
spielt, ist perfekt. Die 
Bewegungen verlaufen 
ruckfrei und lassen sich 
exakt mit dem Joystick 
steuern. Höhepunkte der 
Bilder ist jedesmal ein 
Angriff der Aliens, so 
kurz dieser auch verlau- 
fen mag. Kurz und gut, 
Aliens verdient das 
Prädikat „‚Empfehlens- 
wert“. 

(GS) 
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dBASE: OPA IST 
IMMER NOCH 
DER KNÜLLER 


dBASE gilt — nicht ohne Grund - als leistungsfähiges und 
anspruchsvolles Programm. Jedoch mit Kaufen, Diskette einlegen 
und Programm starten ist es nicht getan: ein genaues Studium des Hand- 
buches sollte vorangehen. Daher wird dBASE häufig als kompliziert 
und wenig anwenderfreundlich angesehen. 


Eine Einarbeitungszeit von etwa ei- 
ner Woche, je nach Intensität des 
Studiums auch kürzer oder länger, 
sollte als Zeitinvestition schon ein- 
kalkuliert werden, um die Leistungs- 
fähigkeit zu ergründen und das 
Datenbanksystem für den eigenen 
Gebrauch optimal nutzen zu kön- 
nen. Neben dem ausführlichen Hand- 
buch steht eine große Palette weiter- 
führender Literatur zur Verfügung. 
Soviel vorab: Für Anwender, die kei- 
ne eigenen Dateianwendungen au- 
ßer einer kleinen Adreßkartei auf 
dem Computer haben, ist dBASE II 
sicher nicht geeignet. Eine andere 
Gruppe der sog. Freaks (Tüftler, 
Bastler, Hobbyprogrammierer) ist 
schon deshalb mit dBASE II gut be- 
dient, weil es wohl keine Anwen- 
dung gibt, die nicht auch mit die- 
sem Datenbanksystem zu meistern 


wäre (abgesehen von einigen speziel- d 


len mathematischen Anwendungen 
und natürlich grafikorientierten Spie- 
len). Gut bedient sind alle, die sich 
vorgenommen haben, auf ihrem 
Computer ernsthaft das Mögliche 

an Dateianwendungen in der 8-Bit- 
Welt zu nutzen. 


VORAUSSETZUNGEN 
FÜR dBASE Il 


l. Minimum 1 Diskettenlaufwerk 
2. Betriebssystem CP/M 
3. mind. 62 KByte CP/M 
(CP/M 3.0 bei CPC 6128 oder 
64 K zusätzliche Kapazität 
durch Speicherkarte mit CP/M 
PATCH-Software, z.B. Karten 
SP 64 bis SP 512 von Vortex) 
Ein Diskettenlaufwerk mit einer 
CP/M-Version von mindestens 62 K 
ist also Voraussetzung. Dies trifft 
zu für aufgerüstete CPCs 464/664, 
den CPC 6128, den Joyce (256/ 
512) — und alle sonstigen CP/M- 
Rechner, die über ein Minimum 
von 62 K Speicherplatz unter CP/M 
verfügen. Der neue Schneider PC 
verfügt als 16-Bit-Rechner über 


CP/M 86 und kann daher sogar 
dBASE III, ein auf 16/32 Bit-Rech- 
ner angepafßites System, verwalten. 
Als eventueller Umsteiger kann man 
also die Erfahrungen mit dBASE II 
nutzen und die bislang erstellten 
Daten bleiben erhalten, sofern die 
Voraussetzungen für einen Daten- 
transfer auf das andere Disketten- 
format (IBM) vorhanden sind: 

Z.B. eine serielle Schnittstelle oder 
ein spezielles Kopierprogramm. 

Bei der Vielfalt von Systemen 
bleibt zu erwähnen, dafs es natür- 
lich verschiedene CP/M-Versionen 
gibt, die untereinander nicht unbe- 
dingt kompatibel sind. Dementspre- 
chend sind auf dem Markt auch 
verschiedene Programmversionen 
für dBASE erhältlich. 


DAS DATENBANKSYSTEM 
BASE 


Was ist eine Datenbank’ 

Genau genommen ist alles, was ei- 
nen Computer zum Laufen bringt, 
also auch das Betriebssystem, nur 
durch bestimmte Informationen 
(Daten) möglich. Eine Datenbank, 
wie sie im Folgenden beschrieben 
wird, ist eine geordnete Zusammen- 
fassung mehrerer gleichartiger In- 
formationen. Als eine Einheit wol- 
len wir einen Datensatz (Satz) 
charakterisieren, als eine Zusam- 
menfassung von Daten, die zu ei- 
nem bestimmten Objekt gehören. 
Um einen bildlichen Eindruck zu 
gewinnen, sei eine Datenbank mit 
einem Karteikasten in folgendem 
Schema verglichen: 


Karteikasten = Datenbank 
Karteikarten = Datensätze 
Einzeleinträge = Daten 


Führen wir uns vor Augen, dafs jede 
Karteikarte zwar mit verschiedenem 
Inhalt, aber strukturmäßßig gleich 
aufgebaut sein kann, so ergibt sich 
das Bild einer Datenmaske, die aus 
verschiedenen Datenfeldern aufge- 
baut ist. 
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Der Benutzer bestimmt durch sehr 
einfache Befehle die STRUKTUR 
seiner Datenbank. Dies geschieht 
durch den Befehl 

“CREATE <DATEINAME>" 
Will man z.B. eine Adreßdatei mit 
der Bezeichnung “ADRESS“ anle- 
gen, so könnte der Dialog mit dem 
Computer folgendermaßen aus- 
sehen: 

. CREATE ADRESS 

Satzstruktur folgendermaßen 

eingeben 

Feld, Name, Typ, Länge, 

Dezimalstellen 


001 name,c,21 <ENTER> 
002 vorname,c,21l <ENTER> 
003 strasse,c, 24 _<ENTER> 
004 plz:ort,c,21 <ENTER> 


005 <ENTER> 

Im Dialog werden die erforderlichen 
Felder eingegeben, die Parameter 
jeweils durch Kommata getrennt. 
Feldbezeichnungen dürfen aus alpha- 
numerischen Zeichen und dem Dop- 
pelpunkt (:) bestehen, also z.B. 
PLZ:ORT' oder ‘FELDI‘. 

Mit “Typ‘“ ist gemeint, ob es sich 
um ein numerisches Feld (Typ “N‘“), 
ein Textfeld (Typ ““C“) oder ein 
logisches Feld (Typ ““L‘) handelt. 
Mit “ Länge“ ist bei Textieldern die 
Textlänge (Zeichen) gemeint, bei 
numerischen Feldern die Stellen vor 
dem Dezimalpunkt. 

Die Eingabe der “Dezimalstellen“ 
ist nur bei numerischen Feldern er- 
forderlich, wenn Nachkommastel- 
len benötigt werden. 

Der Typ ‘“Logisch“ ist ohnehin auf 
l Zeichen begrenzt, so daß die Ein- 
gabe von “ Länge“ und “Dezimal- 
stellen“ entfallen können. Logische 
Werte sind bei dBASE T (true= 
wahr) und F (false=falsch oder 
nicht wahr). 


DATENBÄNKE MIT 
WAHLFREIEM ZUGRIFF 


Nach Beendigung der Eingabe 
(Drücken der ENTER-Taste ohne 
weitere Eingabe) wird der Dialog 
durch dBASE wieder aufgenom- 
men durch die Frage: 

Daten jetzt eingeben? 
Fals ‘J‘ (Ja) geantwortet wird, kön- 
nen bereits jetzt Daten in die gerade 
erstellte Maske eingegeben werden. 
Andernfalls wird nur die Datenmas- 
ke abgespeichert und man kann auf 
andere Art mit dBASE weiterarbei- 
ten. 
In jedem Fall wird eine Datenbank 
auf Diskette generiert als Daten 
BankFile. Im Directory können die- 
se Datenbanken als solche mit der 
Extension “DBF‘“ erkannt werden. 
Nach der Frage “Daten jetzt ein- 
geben?“ können bereits mehrere 


Datensätze eingegeben werden. Für 
jedes Datenfeld wird dabei ein be- 
stimmter Wert (alphanumerische Zei- 
chen beim Typ € — Zahlenwerte 
beim Typ N oder (T)true /(F)alse 
bei Typ F) eingegeben. Ein Daten- 
satz setzt sich dabei aus der Gesamt- 
heit der Datenfeld-Inhalte zusam- 
men. Z.B.: 

Satznummer 00001 


NAME : Schmiedel 
VORNAME : Karl = 
STRASSE _: Kasseler Str. 18 : 


PLZ:ORT : 3550 Marburg 
oder 

Satznummer00131 

NAME : Martin i 

VORNAME : Jürgen ; 

STRASSE : Sauergäßchen 15: 

PLZ:ORT : 3550 Marburg 


Wahlfreier Zugriff bedeutet, dafs je- 
der bereits existierende Datensatz, 


charakterisiert «lurch die Satznum- 
mer, direkt durch dBASE gelesen 
und/oder beschrieben werden kann. 
Als komfortablv Einrichtung be- 
dient man sich beispielsweise des 
Befehls ‘EDIT <SATZNUMMER>‘. 
Versucht man jedoch, einen Satz 

zu EDITieren, der noch nicht exi- 
stiert (höhere Satznummer als die 
Anzahl der bereits eingegebenen 
Sätze), so wird dies mit der Fehler- 
meldung: “Satz überschreitet den 
belegten Bereich der Datenbank“ 
quittiert. Dies mag zunächst als we- 
nig komfortabel angesehen werden, 
weil man eventuell die Satznummer 
ebenfalls als weiteres Datum verwen- 
den will. Vorteilhaft ist jedenfalls, 
daß dBASE stets alle Sätze in mög- 
lichst komprimierter Form auf der 
Diskette verwaltet. 

Im Gegensatz zur sog. hierarchischen 
Datenstruktur bietet dBASE ein ho- 


SERVICE 


hes Maß an Flexibilität. In einem 
Datenbankfile werden durch 
dBASE die Sätze als Kombination 
mehrerer Einheiten (Felder) erkannt 
und dadurch kann beispielsweise 
auch nachträglich die Satzstruktur 
geändert werden, ohne Datenver- 
luste in Kauf nehmen zu müssen. 
Um ein zusätzliches Datenfeld in 
die Satzstruktur einzufügen, sollte 
die bisherige Datenbank (ADRESS) 
auf eine temporäre Datei kopiert 
werden. Dies geschieht durch den 
Befehl “COPY TO <DATEINAME>“ 
Die Datenbank “ADRESS“ sollte 
jedoch geöffnet sein (Befehl 
“USE <DATEINAME>‘*). 

.USE ADRESS 

.COPY TO TEMP 

131 Sätze kopiert 


Anschließend kann die Satzstruktur 


er j 


von “ADRESS“ durch den Befehl 
“MODIFY STRUCTURE“ geändert 
werden. Die Antwort des Systems 
lautet: “MODIFY löscht alle Daten- 
sätze — Weiter (J/N) “. Da eine 
Kopie der Datei ADRESS existiert, 
kann getrost mit “J“* geantwortet 
werden und der Bildschirm füllt 


“RELATIONALES 
DATENBANKSYSTEM” 


sich mit den Strukturdaten (Felder/ 
Typen/Länge/Dezimalstellen) der 
existierenden Maske. Durch Cursor- 
tasten steuert man die gewünschte 
Position an und gibt die Felddaten 
des zu ändernden oder einzufügen- 
den Feldes ein: z.B. an Postion 
005: KUND:NR C 005 000 000, 
wodurch das zusätzliche Feld 
KUND:NR eingerichtet wird. Mit 
CTRLW wird die neue Struktur ab- 


Li 


gespeichert. Der Befehl ‘APPEND 
FROM TEMP‘ veranlatixt dBASE 
nun, die Daten aus der Temporär- 
datei TEMP.DBF in die modifzierte 
ADRESSdatei zu übernehmen. 
Selbstverständlich lassen sich durch 
MODIFY auch die Reihenfolge 

der Datenfelder und die Feldlängen 
verändern. 


SORTIEREN, INDEXDATEIEN, 
REPORTS 


Als relationales Datenbanksystem 
scheint es für dBASE ein Kinderspiel 
zu sein, die Daten auch in sortierter 
Form zu verwalten. Einerseits ist es 
möglich, die komplette Datei in ei- 
ne andere Datei zu kopieren, ande- 
rerseits besteht die viel elegantere 
Möglichkeit, sogenannte Indexda- 
teien zu generieren, die stets bei je- 


der Datenänderung und Neueingabe 
aktualisiert werden. Man führe sich 
vor Augen, daß man auch gleichzei- 
tig mit mehreren “Indexschlüsseln‘“ 
arbeiten kann. um so ohne Aufwand 
verschieden sortierte Listen erstel- 
len zu können. Die Befehlsfolge: 

“INDEX ON < Sortierschlüssel> 

TO <Indexdatei>“* 
Ein Datenreport (vom Benutzer er- 
stelltes Listenformat) ist durch 
dBASE in einfacher Weise anzule- 
gen. Die Befehlsfolge "REPORT 
FORM <NAME>' initialisiert eine 
solche Liste, die bei erstmaligem 
Aufruf natürlich noch definiert 
werden muß: 

. USE ADRESS 

. REPORT FORM TEST 
Bitte angeben m=linker Rand, 
l=Zeilen je Seite, w=Zeilenbreite. 
Bei Übergehen dieser Modifikations- 
Bitte lesen Sie weiter auf Seite 70 


TEST 


STAR TEXTER: WIRKLICH 
EIN TEXT-STAR? 


Tasword kennt jeder Schneider-User als recht 
umgängliches Textverarbeitungssystem. Das Bessere 
ist jedoch des Guten Feind. Ob dies auch bei 
Startexter zutrifft, sagt Ihnen unser 
Testbericht. 


Tabulatorene en 
Zweisplatensatz, wenn auch nit Mühen? 


Seitenla 


Frei Eelniatere Zeichensätzer 
$ilbentrennunge 


Gelungenes Menü bei Startexter 


“Goodbye Tasword — 
Welcome Star Texter“. 
Das Sybex Textprogramm 
ist sicherlich keine abso- 
lute Neuheit, doch es 
sorgte angesichts seiner 
Leistungsfähigkeit für ei- 
nige Überraschung in der 
Redaktion. 

Zwar redet man — der 
Schneider CPC läuft nun 
mal auch unter CP/M — 
gerne und viel von Word- 
Star, vergifst aber dabei, 
jene Anwender, die mit 
einer Grundkonfiguration 
des CPC zufrieden sind 
und ohne Speichererwei- 
terung nur mit einem 
3-Zoll-Laufwerk auch mal 


einen Brief schreiben wol- 
len. Für sie war bisher 
Tasword gedacht, das 
sicher recht komfortabel 
ist, auf Dauer jedoch nie- 
manden zu Begeisterungs- 
ausbrüchen hinreißen 
kann. 

“StarTexter‘ wird — wie 
bei Sybex üblich — als 
Textverarbeitungskurs 
angeboten. Wir haben uns 
um die Komponente 

“ Training‘ nicht geküm- 
mert. Uns interessierte in 


erster Linie das Programm. 


Welche Optionen es bie- 
tet, wie leistungsfähig 
diese sind und wie be- 
quem — oder unbequem — 


lassen sie sich bedienen? 
Das mitgelieferte Buch 
mit 106 Seiten Umfang 
wollten wir als Manual 
zum Textprogramm wer- 


ten, den pädagogischen 
“Kurs“-Aspekt haben 

wir beiseite gelassen. 
Kommen wir gleich zum 
Editor, denn der hat ei- 
niges zu bieten: Er ist in 
100% Maschinensprache 
geschrieben und dadurch 
enorm schnell. Bei einem 
Geschwindigkeitsvergleich 
mit Tasword wäre er ab- 
soluter Sieger. Er verträgt 
den Zweispaltensatz, bie- 
tet 3 verschiedene Tasta- 
turbelegungen und läßt 
frei definierbare Grafik- 
zeichen zu. Dies sind nur 
herausragende Eigen- 
schaften, die üblichen 
Möglichkeiten einer Text- 


verarbeitung sind natür- 
lich auch vorhanden. 

Das Programm präsen- 
tiert sich ordentlich auf 
dem Bildschirm. Das obe- 
re, vierzeilige Fenster bie- 
tet das Zeichenlineal, auf 
das ein kleines Dreieck 
hinweist. Dieser Hilfscur- 


sor wandert synchron mit 
dem Textcursor, weist 
also auf die Zeichenstel- 
le hin. Eine bei Schreib- 
maschinen übliche Lö- 
sung, bei Textverarbei- 
tungsprogrammen hat 
sich allerdings die Ziffer- 
anzeige durchgesetzt, um 
Arbeitsgeschwindigkeit 
zu sparen. Die gleiche 
Zeile wird auch für Feh- 
lermeldungen benutzt, 
die mit einem Pivpston 
eingeleitet werden. In 
Zeile 3 befindet sich die 
Tabulatorleiste, entspre- 
chend der eingestellten 
Zeichenbreite. Schließlich 
bleibt noch Platz für das 


Hauptmenü, welches mit 
ESC aufgerufen wird und 
die Optionen Format, 
Block, Suchen, Grafik, 
Drucken, Archiv und 
Parameter bietet. 

Den größten Teil des Bild- 
schirmes nimmt natürlich 
das Schreibfeld auf. Ins- 
gesamt sind stets 19 Zei- 
len zu sehen, wobei 
gleich erwähnt werden 
muß, daß die maximale 
Zeichenzahl bei 80 je 
Zeile liegt. Besonders für 
das zweispaltige Layout 
ist dies ein Nachteil. Die 
unteren zwei Zeilen wer- 
den wieder vom Pro- 
gramm benötigt, es sind 
die Statuszeilen. Hier 
erfährt der Anwender, 

in welchem Arbeitsmo- 
dus, in welcher Zeile 

und in welchem Zeichen- 
satz er sich befindet. 

Der Erstbenutzer tut 

gut daran, sich das Pa- 
rametermenü näher an- 
zuschauen. Der wichtig- 
ste Punkt hierfür dürfte 
nämlich die Tastaturbe- 
legung sein. ““StarText“ 
bietet davon drei ver- 
schiedene an, die ein- 
fach durch eine Kenn- 
zahl auszuwählen sind. 
Eine amerikanische, mit 


LEIDER FEHLEN 
TASTATUR-AUFKLEBER 


der man in Deutschland 
naturgemäß nicht viel 
anfangen kann, eine 
Pseudo-DIN-Tastatur, 
welche zwar Umlaute er- 
möglicht, diese aber 

nicht auf die Multipli- 
kation- und Plustaste legt 
und schließlich die Ori- 
ginal-DIN-Tastatur, die 
Sie auch von der Schreib- 
maschine her gewohnt 
sind. Leider liegen dem 
Programm keine Aufkle- 
ber bei, die für die Einar- 
beitungszeit eine Erleich- 
terung darstellen würde. 
Positiv — besonders für 
Neulinge auf dem Ge- 
biet — ist zu werten, daß 
die verschiedenen Bele- 
gungen einfach ausgewählt 
werden. Man muß nicht, 
wie bei anderen Pro- 
grammen durchaus üblich, 
die einzelnen Tasten de- 
finieren. 

Weitere Parameter betref- 


TEST 


fen die Bildschirmdarstel- 
lung, die Formatierungs- 
regeln, die Druckeraus- 
gabe und, besonders in- 
teressant, die Option Tren- 
nungsvorschläge. In dieser 
Preislage vermögen nun 
einmal wenig Textedito- 
ren diesen Luxus zu bie- 
ten. Ist bei ‘“‘StarTexter““ 
der Parameter für Tren- 
nungsvorschläge auf 1 
gestellt, so werden beim 
Formatieren des Textes 
Trennungsvorschläge ge- 
macht. Dabei darf man 
beileibe keine grammati- 
kalisch richtigen ‚‚Treffer‘“ 


erwarten. In der Regel 
muß der Anwender sich 
die Trennstelle per Cur- 
sor aussuchen und mit 
Return (Enter) bestäti- 
gen. Trotzdem eine nütz- 
liche Funktion, dies wer- 
den besonders jene ein- 
sehen, die einmal versucht 
haben, mit Tasword einen 
Bindestrich einzufügen. 
Angenehmerweise wird 
die Trennung auch zu- 
rückgenommen, wenn es 
durch eine Neuformatie- 
rung nötig wird. Forma- 
tiert wird übrigens wahl- 
weise im Flattersatz 

oder rechtsbündig ge- 
schlossen. Besonders bei 
der letztgenannten Art 
der Textgestaltung sind 
ja Trennungen wichtig, 
um keine großen Lücken 
im Text entstehen zu 
lassen. 

Dem wirkt auch eine an- 
dere Option entgegen, 
das sogenannte ‚‚feste 
Leerzeichen‘. Es gibt 
nun mal Wortkombina- 
tionen, die man sich nicht 
optisch auseinanderreißen 
lassen will. Beim Star- 


Texter verhindert dies 

ein mit SHIFT und Leer- 
taste eingegebenes Leer- 
zeichen. Auf dem Bild- 
schirm zeigen sich dann 
zwei Punkte. Bei einer spä- 
teren Formatierung bleibt 
es dann bei einem Leer- 
zeichen. 

Damit wären wir auch 
schon beim Thema 
“Steuerzeichen‘ und 

den Leistungen, die diese 
repräsentieren. An und 
für sich sind diese zusätz- 
lichen Symbole auf dem 
Bildschirm ein Störfaktor. 
Sie zerreißen die Forma- 


Software 


und Trainingsbuch 


er 


tierung und können, je 
häufiger sie auftreten, 

den Anwender verwirren. 
In letzter Zeit ist man 

bei neuen Programmen 
dazu übergegangen, Fett- 
druck, Unterstreichungen 
und ähnliches auf dem 
Bildschirm darzustellen. 
“What You See Is What 
You Get“ lautet der Slo- 
gan dazu und man benö- 
tigt besonders grafikfähi- 
ge Hardware. Aber bei ei- 
nem Textprogramm für 
die CPC-Modelle und mit 
diesem Einkaufspreis 

darf niemand erwarten, 
daß bildschirmorientiert 
geschrieben wird, das 
heißt, es ist nicht möglich, 
Hoch- oder Tiefstellun- 
gen auch am Monitor dar- 
zustellen. Sämtliche 
Schriftarten werden mit 
Steuerzeichen dargestellt. 
Das erste, was uns dabei 
auffiel, ist das Enter-Sym- 
bol, der abgeknickte Links- 
pfeil, der immer das 
Blockende kennzeichnet. 
Andere Funktionen wer- 
den durch einen kleinen 
Kennbuchstaben übernom- 


men. Dieses Steuerzeichen 
nimmt nur ein Viertel 

der üblichen Zeichengröße 
ein, ist also leicht zu iden- 
tifizieren. Dabei gilt die 
Normaldarstellung als 
“Sonderfunktion ein“, 

die inverse Darstellung als 
“Sonderfunktion aus“. 
Erfreulicherweise haben 
sich die Programmierer 
von Sybex an eine logi- 
sche Syntax gehalten. Con- 
trol und T ergeben eine 
Hochstellung und so wei- 
ter und so weiter. Insge- 
samt sind folgende 
Schriftarten einschaltbar: 
Hochstellungen, Tiefstel- 
lungen, Fettschrift, 
Schmalschrift, Breit- 
schrift und Unterstrei- 
chen. Sollte der Drucker 
weitere Schriftbilder bie- 
ten, so lassen sich sechs 
zusätzliche Steuercodes 
auf der Zehnertastatur 
definieren. 


GUT AUF DIVERSE 
DRUCKER 
VORBEREITET 


Dem Drucker kommt bei 
“StarTexter‘‘ ohnehin 
große Aufmerksamkeit 
zu. Das Erscheinungsbild 
des Textes, also Zeilen- 
zahl je Seite, Spalte des 
Druckbeginns, Kopf- und 
Fußzeile, Einzelblatt 
(oder Endlospapier), Sei- 
tennumerierung und Sei- 
tenvorschub lassen sich im 
Parametermenü einstel- 
len und als Standard ab- 
speichern. Das Seitenlay- 
out ist somit immer ver- 
fügbar, der Drucker wird 
automatisch vor der Rou- 
tine angepaßt. Darüber 
hinaus können diese 
Druckeranweisungen auch 
im Text eingegeben wer- 
den, wieder in der Form 
von Sonderzeichen. So 
läßt sich ein Seitenvor- 
schub erzwingen (Seiten- 
umbruch), der Ausdruck 
kann gestoppt werden 
oder man schaltet auf 
“Multifunktionalen 
Druckbetrieb‘‘ um. 

Was ist Multifunktionaler 
Druckbetrieb? Nun, die 
Speichergrenze von 
StarTexter ist mit 250 
Zeilen schnell erreicht. 
Wollen Sie mehr schrei- 
ben, bzw. ausdrucken, 
hilft Ihnen die Option 


Multifunktionaler Druck, 
die mit dem Steuerzeichen 
CTRL und Q eingeschal- 
tet wird. Danach muß nur 
noch der Speichername 
des zweiten Teiles ange- 
geben werden. Beim Aus- 
druck wird zuerst der im 
Speicher befindliche 
Textteil ausgegeben. 

Wird das Steuerzeichen 
erreicht, dann liest Star- 
Texter den Datennamen, 
lädt nach und druckt wei- 
ter. Die Idee wurde sicher 
aus der Not der geringen 
Speicherkapazität gebo- 
ren, ist aber ganz brauch- 
bar. Dabei hat man näm- 
lich auch die Möglichkeit, 
mit Textbausteinen zu 
arbeiten, die man vorher 
erstellt und abgespeichert 
hat. An dieser Stelle muß 
auch erwähnt werden, daß 
StarTexter die Daten des 
Programmes StarDatei 

— ebenfalls von Sybex — 
verarbeiten kann. 


MIT LAYOUT 
WIE GEDRUCKT 


Einiges am Textprogramm 


entspricht dem Standard. 
Es ist dies unter anderem 
die Lade- und Speicher- 
routine. So kann der 
Text auch teilweise ab- 
gespeichert werden (ab 
der Cursorposition). 

Zum bestehenden Text 
hinzuzuladen (Mergen) ist 
ohnehin als Grundeinstel- 
lung vorgesehen. Man 
sollte also den alten Text 
löschen, wenn man ihn 
durch einen neuen erset- 
zen will. Auch das 
Druckermenü ist, abge- 
sehen von einer Ausnah- 
me, ohne Überraschun- 
gen. Die meisten Drucker- 
befehle sind ja schon als 
Standardparameter vor- 
handen oder verbergen 
sich im Text. Die besagte 
Ausnahme, eben die 
Überraschung, ist der 
Menüpunkt “Layout“. 
Sie können sich unter die- 
ser Rubrik die Drucksei- 
te ansehen, wie sie spä- 
ter einmal auf dem Pa- 
pier ausschauen wird. 

Die Zeilen sind dabei 
innerhalb einer hochauf- 
lösenden Grafik als Linien 
zu erkennen, das Blatt 
wird als Rahmen darge- 
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stellt. Dabei ist genau die 
optische Wirkung eines 
Briefes oder eines ähn- 
lichen Dokumentes zu 
bestimmen. Man sieht, 
wo die rechtsbündige 
Formatierung große 
Lücken riß oder wo sich 
der Seitenumbruch 
schlecht auswirkt (z.B. 
Absatzende). 

Ich habe die Option der 
zweispaltigen Texterfas- 
sung bereits erwähnt. 

Es soll aber nicht ver- 
schwiegen werden, daß 
es sich dabei um eine 
Formatierroutine han- 
delt. Man schreibt also 


nicht zweispaltig, sondern 


GRAFIKMENÜ 
DURCHAUS POSITIV 


teil den bereits geschrie- 


benen Text nur auf und 
legt ihn nebeneinander. 
Ein nachträgliches Bear- 
beiten ist dann nicht 
mehr möglich. Ob unter 
diesen Bedingungen das 
zweispaltige Format zu 
einer Spielerei gerät, 
möchte ich Ihnen über- 
lassen, mir kam diese 
„kleine Option‘, verbun- 
den mit einigen anderen 
Programmroutinen, aus- 
reichend vor. 

Das Grafikmenü von Star- 
Texter ist auf jeden Fall 
positiv zu bewerten. Hier 
geht es um das Problem, 
einen neuen Zeichensatz 
zu definieren, ihn für spä- 
tere Arbeiten abzuspei- 
chern und ihn während 
der Texteingabe leicht be- 
nutzen zu können. Die 
Definition eines Zeichens 
ist denkbar einfach. Man 
wählt auf der Tastatur 
den Buchstaben aus, den 
man mit dem neuen Sym- 
bol belegen will. An- 
schließend erstellt man in 
einem 8*8 Punkte um- 
fassenden Raster das neue 
Zeichen und speichert es 
ab. Sie können natürlich 
mehrere Zeichen bele- 
gen und in einer Datei ab- 
legen. Beim Gebrauch des 
Textprogrammes wird 
während des Schreibens 
durch eine Control-Se- 
quenz der Zeichensatz ge- 
wechselt, die betreffenden 
Tasten gedrückt und bei 
Bedarf wieder umgestellt. 


Neun verschiedene Zeichen- 


sätze sind auf diese Art 
und Weise möglich. Be- 
vor man sich allerdings 
die Arbeit der Definition 
macht, sollte man sich 
den “Extra-Zeichensatz‘‘ 
anschauen, der mit dem 
Programm geliefert wird. 
Er enthält fast alle Zei- 
chen, die zum Erstellen 
einer Grafik notwendig 
werden. Ein zusätzlicher 
Satz könnte erst notwen- 
dig sein, wenn der Text 
chemische oder mathema- 
tische Formeln enthalten 
soll. 

Bevor wir zum Fazit 
kommen, noch ein paar 
Sätze über das Handbuch. 
Wie schon erwähnt, wird 
esals Trainingsbuch be- 
zeichnet und gilt zusam- 
men mit dem Programm 
als Textverarbeitungs- 
Kurs. Entsprechend ist 
das Manual aufgebaut. 
Mit der Erläuterung der 
SHIFT-Taste und dem 
Gebrauch von Tabulato- 
ren wird sich mancher 
langweilen, der schon mal 
eine Textverarbeitung 

in der Hand hatte. Ande- 
rerseits ist natürlich auch 
für den Fortgeschritte- 
nen eine ausführliche 
Befehlsbeschreibung von 
Nutzen, und daran man- 
gelt es nicht. 


FAZIT 


StarTexter ist ein ausge- 
klügeltes Textverarbei- 
tungsprogramm für den 
CPC. Es bietet neben den 
üblichen Optionen wie 
Formatierung, Blocksatz 
und Druckerparameter 
noch einiges mehr, was 
man nicht in dieser Preis- 
klasse erwartet. Dazu 
zählt die Trennungshilfe, 
die zwar nicht mit Word- 
Star zu vergleichen ist, 
mit der sich aber trotz- 
dem gut arbeiten läßt. 
Auch die Notlösung der 
zweispaltigen Textverar- 
beitung weiß zu gefallen. 
Zusätzliche Kleinigkeiten, 
etwa das Seitenlayout 
oder der frei definierbare 
Zeichensatz, runden das 
Programm ab und führen 
zum Schlußwort: Sehr 
Empfehlenswert.  (GS) 
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ÜBER UNS 


Mit dem Adventure 
“Zorgos‘' von Deltacom 
blamierte sich die gesam- 
te Schneider aktiv-Re- 
daktion. Telefonisch war 
uns ein deutsches Grafik- 
abenteuer angekündigt, 
der Parser sollte auf die 
deutsche Sprache abge- 
stimmt sein, die Bilder 
natürlich vom Feinsten. 
Nun braucht es allerdings 
etwas Zeit ein Adventure 
zu testen, aber neugierig 
waren wir doch. 

Also: Diskette einlegen, 
RUN, Titelbild und Taste 
drücken. Dann war 
Schluß! 

Nach der ersten Verärge- 
rung ließen wir uns ein 
wenig über die Program- 
mierkünste deutscher 
Softwarefirmen aus, bis 
ein Kollegen die Disket- 
te aus dem CPC zog, das 
Etikett las und höhnisch 
fragte: ‘‘464-Version im 
CPC 6128???“ Irgend- 
wann wären wir schon 
von selbst darauf gekom- 
men, fürs erste stieg uns 
mal die Schamesröte ins 
Gesicht. Auf dem richti- 
gen Rechner lief “Zorgos‘ 
dann großartig und der 
Testbericht wird in der 
nächsten Ausgabe folgen. 
Sie können sich schon 
mal darauf freuen. 
Reisefieber im Verlag. 
Anfang März findet die 
CeBit in Hannover statt 
und wir werden für Sie 
dabei sein, um alles zu 
sichten. Schockiert hat 
uns nur der Starttermin. 
Treffpunkt 5 Uhr am 
Flughafen. Seitdem kur- 
siert die Frage: ‘“Durch- 
machen (muß ja nicht 
mit Arbeit sein) oder früh 
ins Bett?“ 

Viele Firmen haben uns 
ihre Softwareneuheiten 
geschickt, was aber nicht 
heißen soll, daß wir nichts 
mehr annehmen. Viel- 
mehr ist die Frage, was 
zuerst drankommen soll, 
von Bedeutung. Wir ha- 
ben uns entschlossen un- 
ter all den Neuheiten 
auch mal einen “Oldie“ 
zu präsentieren. (GS) 


‘ 


CLUBAUFLÖSUNG 
IM RAUM KIEL 


SCHNEIDER AKTIV- 
Leser und Leiter des 
Computerclubs Kiel 
Peter Schneider gibt die 
Auflösung der Userge- 
meinschaft bekannt. 
Peter Schneider, 

Kiel 


GESUCHT: HARDCOPY 


Christian Engels, Meers- 
burgerstr. 8, 5000 Köln 

41, sucht eine besonders 
schnelle Hardcopy-Rou- 
tine unter Turbo-Pascal 

auf dem CPC 6128. 


BEDIENUNGSFEHLER 


Ich habe von Ihnen die 
Disketten 11/86 und 
12/86 bekommen. Von 
diesen Programmen lau- 
fen einige nicht. Und 
zwar: 
Diskettenmanager 
Textverarbeitung 
Woncode 
Rolf Berrang, 
Wuppertal 


Wir haben uns die Pro- 
gramme noch einmal an- 
geschaut und keinen Feh- 
ler entdecken können. 

In der Programmbeschrei- 
bung fehlten unter Um- 
ständen jedoch ein paar 
Hinweise zur Bedienung. 
Der Diskettenmanager 
meldet sich nach dem 
Start mit der schlichten 
Bemerkung: “Ready‘“. 
Das System ist jedoch 
nicht abgestürzt, sondern 
wartet nur auf den RUN- 
Befehl. Wenn Sie das Pro- 
gramm benutzen, kön- 
nen Sie allerdings auch 
auf die Fehlermeldung 
“Bad Command“ stoßen. 
Wenn Sie nämlich unter 
der Option “Datei, In- 
halt“ den benötigten File- 
namen falsch eingeben. 
Der Diskettenmanager ver- 
hält sich nämlich wie das 
Betriebssystem und ver- 
bietet einige Sonderzei- 
chen. Daneben sind aber 
auch Joker, bzw. Wild- 
cards erlaubt. 

Das Listing der Textver- 
arbeitung enthielt einige 
Befehle, die nur auf dem 


CPC 6128 laufen. Trotz- 
dem konnte die Textver- 
arbeitung umgearbeitet 
werden (siehe Programm- 
beschreibung). Im we- 
sentlichen betrifft dies 

die Zeile 530, in der 
“CLEAR INPUT“ ent- 
fernt werden muß und die 
Zeile 6030, in der die 
6128 Befehle durch 
RETURN ersetzt werden 
sollten. Leider müssen 

Sie diese Zeilen neu ein- 
tippen. 

Auch das Programm 
“Woncode‘ läuft einwand- 
frei. Verfahren Sie folgen- 
dermaßen: 


1. Woncode Basiclader star- 


ten (046) 

2. Eingabe &9500 für das 
Demoprogramm 

3. File abspeichern 

Binärfile und Woncode- 

Demo müssen nun auf der 

gleichen Diskette vor- 

liegen. 

4. Initialisieren Sie Ihren 
Rechner neu und star- 
ten Sie dann das Pro- 
gramm mit RUN‘‘047. 


SOFTBOX FÜR PC 1512 


Ich habe einen Schneider 
PC 1512 mit Doppellauf- 
werk und Drucker. Dafür 
hätte ich gerne Ihre Soft- 
Box 11/86. Gibt es die- 
ses Programm auch auf 
Diskette, was kostet eine 
solche Diskette und kann 
ich einen Prospekt er- 
halten? 

Raimund Miorin, 
Kempten 


Die bisher veröffentlich- 
ten Programme — ein- 
schließlich der Softbox 
11/86 —- sind nicht auf 
dem PC 1512 lauffähig. 
Dies scheitert am unter- 
schiedlichen Diskettenfor- 
mat und an den abwei- 
chenden Basicversionen. 
Erst nach und nach kom- 
men 1512-Programme in 
unsere Redaktion und 
wir werden selbstverständ- 
lich auch welche in 
SCHNEIDER AKTIV 
abdrucken, sofern es Ih- 
ren Wünschen entspricht. 
Bitte beachten Sie dazu 
unseren Fragebogen. 
Sollten genügend Listings 
anfallen, werden wir si- 
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cherlich auch die Softbox 
um den PC erweitern. 
Einen Prospekt von den 
in der Softbox enthalte- 
nen Programmen können 
wir allerdings nicht bie- 
ten. Die Softbox enthält 
die Programme der jewei- 
ligen Ausgabe und soll 
nur die Mühe des Abtip- 
pens ersparen. 


DEFEKTER COMPUTER, 


WAS TUN? 


Ich hatte meinen Compu- 


ter wegen defekter Tasta- 
tur beim Fachhändler in 
Reparatur gegeben. Erst 
nach 8 Wochen konnte 
ich meinen CPC 664 wie- 
der abholen. Bei vorange- 
gangenen Rückfragen 
konnte mir niemand Aus- 
kunft über die Reparatur- 
dauer geben. Nicht ein- 
mal ein Anruf bei der 
Firma Schneider brachte 
Erfolg. Hierbei wurde ich 
unwirsch abgewiesen, da 
ich als Endverbraucher 
sowieso nichts bestellen 
könnte. 


So also geht alles zu 
Lasten des Fachhandels, 
dessen Kunden durch lan- 
ge Lieferzeiten sehr unzu- 
frieden werden. Es ist 
Sache der Disponenten 
der Firma Schneider, aus- 
gehende Ersatzteile recht- 
zeitig nachzubestellen. 
Aber anscheinend vertritt 
Schneider die Ansicht, 
Computer verkauft >sehr 
gut, Computer defekt 
>geht mich nichts an. 
Eine so schlechte Ge- 
schäftspolitik schlägt ir- 
gendwann zurück. Oder 
wollt ihr die Ersatzteil- 
lagerung dem Einzelhan- 
del aufbürden? Auf diese 
Weise geht jeder in den 
Ruin! 

Wie hat es angefangen? 
Zuerst Probleme bei der 
Software und jetzt Pro- 
bleme bei der Reparatur. 
Was folgt dann wohl als 
nächstes??? 

Reinhard Birnbaum, 
Herbrechtingen 


Was als nächste folgt wol- 
len wir — ironisch gesagt — 
gar nicht wissen. Uns 


Achlung ; 


Disketten 


10er-Pack 


Rauchglas 
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NAGAOKA 3”-Disketten CF2 DD 
(für alle 3”- auNeNnn, 


‚Diskettenboxen 


Diskettenbox SS 50 
für 50 3’- oder 3Y2”-Disketten, 
a 


Ferdi’s Computer Software 


EDV-Service 
Inh. Ferdinand Göddeker 
Höftestraße 32 
4400 Münster 
Telefon 02 51/61 9881 


Alle Preise verstehen sich zusätzlich Versandkosten 


m 79,= 


"19.90 


reicht, was bisher war. 
Leider hat sich in der 
Computerszene ein merk- 
würdiges Geschäftsgeba- 
ren durchgesetzt. Davon 
ausgenommen ist keiner, 
weder Hardware- noch 
Softwarehersteller und 
auch der Handel vermag 
seine schwarzen Schafe 
vorzuweisen. Lesen Sie 
hierzu unseren Bericht in 
dieser Ausgabe. 


CLUBVORSTELLUNG 


Der WACCI (Jeff Walkers 
Computerclub Interna- 
tional) gibt bekannt, daß 
er nunmehr eine Betreu- 
ung für den deutschen 
Sprachraum hat. 

ACCI ist der Amstrad/ 
Schneider Club in Eng- 
land, Übersee, Spanien, 
Frankreich und nunmehr 
in Deutschland. Interes- 
senten erhalten die aktuel- 
len ““Newsletter‘“ gegen 
fünf 80-Pfennig-Marken 
für Porto und Kopierko- 
sten. Kontaktadresse: 
WACCI Deutschland 
Amstrad/Schneider 
International 
Enzianstr. 10 
7464 Schömberg 


FRAGEN ZUM 
VIDEO DIGITIZER 


In der Ausgabe 8/86 brach- 
tet Ihr einen Test über 
Video-Digitizer. Da mich 
dieses Thema sehr inter- 
essiert,habe ich noch ein 
paar Fragen dazu: 

1. Ist die dazugehörige 
Software auch auf 
Kassette erhältlich? 

. Oder ist sie, wenn man 
sie selbst auf Kassette 
kopiert, immer noch 
voll lauffähig? 

Mike Liebenau, 

Berlin 


D 


Bei der Digitalisierung ei- 
nes Bildes fallen große 
Datenmengen an. Zwar 
geschieht die Verarbei- 
tung dieser Daten durch 
das RAM des Computers, 
zur Speicherung oder 
zum Laden ist man je- 
doch auf ein schnelles 
Speichermedium angewie- 
sen. Alle uns bekannten 
Firmen sprechen mit 
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ihren Programmen des- 
halb die Diskettenstation, 
wenn nicht sogar die 
Festplatte an. Im Einzel- 
fall mag sich diese Soft- 
ware auf eine Kassette 
kopieren lassen, arbeitet 
aber nicht mit dem Re- 
korder. 


PROGRAMM- 
EINSENDUNGEN 


Mir liegt das Sonderheft 


1/87 vor und ich beziehe 
mich auf Seite 74 dessel- 
ben. Ich beabsichtige, Ih- 
nen einige Programme 
bzw. Tips und Tricks an- 
zubieten und möchte 
Ihnen hierzu einige Fra- 
gen stellen, die aus der 
erwähten Seite 74 des 
Sonderheftes nicht beant- 
wortet werden können: 
a) soll ich Ihnen vor der 
Einsendung der Program- 
me zuerst einmal angeben, 
was diese Programme be- 
inhalten, oder soll ich 
Ihnen die Programme oh- 
ne weitere Rückfrage bzw. 
Kontaktaufnahme zu- 
senden? Auf Seite 2 Ih- 
rer Zeitschrift heifit es 
doch: “Für unverlangt 
eingesandte Manuskrip- 
te, Datenträger... keine 
Haftung des Verlages... .““ 
b) benötigen Sie für jedes 
Programm eine separate 
Diskette, oder können 
mehrere Programme auf 
einer Diskette einge- 
sandt werden? 

c) was heißt “ausreichend 


frankierter Rückumschlag‘“? 


Wie hoch muß das Porto 
genau sein? 

d) Sie schreiben, daß 

Sie “jenach Umfang bis 
zu 300,— DM zahlen“. 

Ist Umfang die Größe 

des Programmes iinK, 
oder die Anzahl der Pro- 
grammzeilen und mithin 
die Anzahl der Druckzei- 
len in der Zeitschrift? 

e) welche Garantie habe 
ich, daß bei Nicht-Annah- 
me meiner Programme 
das Programm selbst, bzw. 
wesentliche Teile hiervon 
nicht von Ihnen verwertet 
bzw. an Unbefugte wei- 
tergegeben werden? 

Ich bitte um Nachsicht 
für diese vielen Fragen. 
Da ich die Absicht habe, 


über einen längeren Zeit- 
raum zusammenzuarbei- 
ten, halte ich es für uner- 
meßlich, derartige Zwei- 
felsfragen bereits zu An- 
fang zu klären. 

Aldo Vitali, 

Völklingen 


a) Wenn Sie uns vor der 
Einsendung erst einmal 
angeben, welches Thema 
Ihr Programm beinhaltet, 
dann können wir besten- 
falls unser Interesse kund- 
tun. Zu guter Letzt muß 
das Programm ohnehin 
von uns geprüft werden. 
Es ist also sinnvoller, 
gich die Kopie (!) Ihres 
rogrammes oder Textes 


Aussage, aber anders als 
bei Textbeiträgen — die 
wir nach Seite bezahlen — 
ist die Beurteilung eines 
Programmes schwieriger. 
Wenn in einem Text Zei- 
len geschunden werden, 
merkt man dies sofort. 
Der Beitrag wird lang- 
weilig und damit nicht ge- 
druckt. Ein Programm 
kann aber gut sein und 
einwandfrei funktionie- 
ren und trotzdem über- 
flüssigen Ballast beinhal- 
ten. Als Beispiel seien 
hier die REM-Zeilen ge- 
nannt, die zwar der Über- 
sicht halber sein müssen, 
mit denen man es aber 
auch übertreiben kann. 


UNSER 
2 TELEFONSERVKE & 


Leserbriefe sind uns stets willkommen, Wir be- 
antworten sie entweder direkt oder auf den Dia- 


log-Seiten. Und wenn Sie gar nicht mehr weiter 
wissen, greifen Sie doch einfach Montag nach- 
mittags zum Telefon. Jeden Montag ab 15 Uhr 
bis 19 Uhr steht Ihnen der Telefon-Service von 
SCHNEIDER AKTIV zur Verfügung. Rufen Sie 


an! Tel. 089/129 80 13. 


an uns zu senden. Für 
unverlangt eingesandte 
Manuskripte können wir 
tatsächlich keine Haftung 
übernehmen. Es ist immer 
besser, Rückporto beizu- 
legen und es empfiehlt 
sich auch, den Datenträ- 
ger sorgfältig zu verpak- 


en. 
b) Auf einer Diskette kön- 


nen selbstverständlich meh- 


rere Programme gespei- 
chert sein. Für unsere Ar- 
beit ist es auch praktisch, 
wenn Sie eine kurze Pro- 
grammbeschreibung bei- 
legen. Dies kann als Text- 
file (Wordstar oder Tas- 
word) oder gedruckt sein. 
c) Wie wir Ihnen Ihr Pro- 
gramm zurücksenden — 
in jedem Fall, auch bei 
Abdruck — hängt eben 
von Ihrem frankierten 
Rückumschlag ab. Was 
dieser an Porto benötigt 
sehen Sie ja an Ihrer 
Sendung an uns. 

d) ‘Je nach Umfang bis 
zu 300,— DM“. Dies ist 
sicher keine sehr klare 
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Auf der anderen Seite 
möchten wir bei kurzen 
Programmen, die aber 
sehr gut sein können, 
auch die Qualität bezahlen 
und nicht nur die Zeilen- 
zahl. Wenn Sie sich dies 
vor Augen halten werden 
Sie einsehen, daß wir im 
Voraus nur sagen können: 
“.. bis zu 300,— DM“. 
Wenn Sie sich das Auto- 
renverzeichnis einiger Aus- 
gaben durchsehen, werden 
Sie jedoch feststellen, 

daß viele Leser mehrmals 
ein Programm eingereicht 
haben. Sicher nicht, weil 
sie beim ersten Mal mit 
dem Honorar unzufrieden 
waren. 

e) Wir garantieren, daß wir 
Ihr Programm nicht in ir- 
gendeiner anderen Form 
verwerten als zum Ab- 
druck. Sie erhalten Ihren 
Original-Datenträger zu- 
rück und nur, wenn wir 
eine Veröffentlichung in 
einer der nächsten Aus- 
gaben planen (dies wird 
Ihnen dabei mitgeteilt), 


ziehen wir uns eine Kopie. 
Wir sind mit Ihnen der 
Meinung, daß derlei Fra- 
gen einmal geklärt wer- 
den mußten. 


SOFTBOX — 
DIE HARTE NUSS 


Ich möchte Ihnen zu Ih- 
rem Sonderheft, das im 
allgemeinen sehr gute 
Programme enthält, gra- 
tulieren. Aber, was dann 
folgte war ein “Hammer“. 
Ich bestellte von diesem 
Sonderheft die Program- 
me auf Kassette. Diese 
Kassetten wurden auch 
geliefert — zwar erst nach 
7 Wochen, aber dies kann 
man noch verkraften. 

Als diese endlich im Brief- 
kasten waren, freute ich 
mich schon und setzte 
mich an meinen Compu- 
ter..-Die erste Kassette 
enthielt das Programm 
“Chemo Cad“. Nach der 
Zeitschrift lief es auch 
auf dem 464, was aber 
nicht der Wahrheit ent- 
spricht. Die zweite Kasset- 
te war in Ordnung. Auf 
der dritten war dann der 
Teufel im Detail. 

1. Das Programm ‘“Beweg- 
te Grafik‘ ist nicht vor- 
handen. 2. Das Programm 
“Onedin“ ist nicht voll- 
ständig auf der Kassette, 
weil das Band vorher zu 
Ende ist. Ich meine, 
wenn man als Entschuldi- 
gung für die lange Liefer- 
zeit das zweimalige Zu- 
rücksenden der Master- 
kassette angibt, ist es nicht 
zu verstehen, daß solche 
Fehler noch vorkommen. 
Mir scheint das ganze 
auch sehr schlecht vorbe- 
reitet und überhastet ge- 
wesen zu sein. Ich möch- 
te jetzt nicht gleich ein 
vorschnelles Urteil aus- 
sprechen und Konsequen- 
zen ziehen, denn ich habe 
von Heft Nr. 1 wieder ei- 
ne Kassette bestellt und 
hoffe, dafs diese auf An- 
hieb läuft. In diesem 
Sinne und mit viel 

F.W. Humor 

Karl Stammler, 
Meckesheim 


Zu den Fehlern des Son- 
derheftes noch mal ab- 


DIALOG 


schließend: es enthielt 
einige Druckfehler und 
einige Ungenauigkeiten. 
Zu letzterem gehörte 
auch der Hinweis “Chemo 
Cad‘ liefe auf dem CPC 
464. Wir können uns da- 
für nur entschuldigen. 
Die neue Redaktion ver- 
spricht, zukünftige Pro- 
gramme genau zu testen. 
Diese Maßnahme hat be- 
reits auf dieses Heft Wir- 
kung. Der Ärger mit der 
Softbox entstand folgen- 
dermaßen. Nachdem wir 
endlich ein Masterband 
hatten, welches sich 
überhaupt lesen lies, 
waren wir recht glücklich 
und achteten in der Eile 
nicht darauf, was das 
Kopierwerk damit mach- 
te. Die Folge kennen Sie. 
Ein Programm fehlte völ- 
lig und trotzdem reichte 
der Platz am Ende nicht 
für das Programm ‘‘One- 
din“. Viele Softbox-Be- 
steller hielten dies übri- 
gens für einen Lesefehler, 
weil sich die Kassette 
nicht sofort abschaltete. 
Nachdem die Fehlerquel- 
le allerdings entdeckt 
war, haben wir allen 
“Kassettenopfern“ eine 
Nachlieferung zukommen 
lassen. 


SPEICHERROUTINEN 


FÜR KASSETTE 


Ich bin stolzer Besitzer ei- 
nes CPC 464. So habe ich 
mir auch die Hefte 
SCHNEIDER AKTIV 

und AKTIV Sonderheft 
beschafft und auch inter- 
essante Listings gefunden. 
Nur werde ich die mei- 
sten wohl nicht verwirkli- 
chen können, da ich keine 
Diskettenstation besitze. 
Könnten Sie mir eine 
Laderoutine für Kassette 
mitteilen, um dennoch die 
Programme lauffähig zu 
bekommen? 

Weiter habe ich eine An- 
frage, in wie weit Sie mir 
mitteilen Können, welche 
Funktion die Taste mit 
dem Pfundzeichen hat. 
Leider kann ich weder im 
Begleitbuch noch sonst 
wo eine Erklärung finden. 
Im Programm ‘“Morsen 
mit dem CPC“ aus Heft 


SCHNEIDER AKTIV- 
Spezial 1/87 sind diverse 
Kommandos mit solchen 
Anweisungen aufgeführt. 
Karl Hein Münter, 

2842 Oldenburg 


Eine besondere Einlese- 
oder Speicherroutine 

für den Recorder gibt es 
nicht.. Die Befehle entspre- 
chen dem Diskettenbe- 
trieb. Schwierigkeiten 
können nur mit dem CAT- 
Befehl auftreten. Sollte 
ein Programm diese Rou- 
tine beinhalten, etwa vor 
der Ladeprozedur, so ent- 
fernen Sie diesen Befehl. 
Im Schneider aktiv-Heft 
1/87 schlich sich das 
Pfundzeichen in unsere 
Listings ein und verdräng- 
te dort das #-Symbol 
(siehe Heft 2/87). Es han- 
delt sich also nicht um 
ein neues Kommando, 
sondern um einen Druck- 
fehler. 


LOHNT SICH EIN 
“BILLIG-PC” 


In der SCHNEIDER 
AKTIV 12/86 testeten Sie 
den Jeschke-PC (Name 

ist beliebig tauschbar, da 
ohnehin nur nachträglich 
aufgeklebt) und schrieben 
als Fazit: “... Die etwas 
spärliche Dokumentation 
und das nicht im Liefer- 
umfang enthaltene Be- 
triebssystem, die fehlen- 
de Multifunktionskarte 
erhöhen den Preis, so dafs 
dieser derzeit nahe an den 
Schneider PC 1512 heran- 
kommt“. 

Dies ist wohl nicht ganz 
richtig. Rechnen Sie mal 


mit: 

Grundgerät 1282, - 
Ergänzende 

Literatur 49 ,— 
MS-DOS 3.2 ca. 180,— 
DOS Plus ca. 150,- 
Speicherausbauca. 100,— 
Multifunktions- 

karte ca. 400,— 
Mouse mit 

Schnittstelle ca. 350,— 
Monitor ca. 300,— 
Gesamtpreis: 2811, 


Der Nachteil gegenüber 
dem von Ihnen zum Ver- 
gleich herangezogenen 
Schneider PC erhöht sich 
noch weiter, wenn man 
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folgendes, bei Schneider 
kostenloses, Zubehör mit- 
rechnet: GEM/GEM- 
DESKTOP/GEM-PAINT/ 
BASIC2. 

Weiterhin stellt sich die 
Frage, was es wert ist, 
auf das europaweite Ser- 
vicenetz eines Herstellers 
zurückgreifen zu Können, 
statt auf den oft nicht vor- 
handenen “Goodwill“ ei- 
nes kleinen Importeurs 
angewiesen zu sein. Be- 
sonders problematisch 
wird es in Bezug auf 
Unterstützung, wenn das 
Gerät im Versandhandel 
bezogen wurde (bei Bil- 
lig-PCs eigentlich die 
Regel). 

Fazit: Für den Preis eines 
“Billig-PC‘“ mit einem 
Laufwerk und Mono- 
chrommonitor erhalten 
Sie ein Markengerät der 
Firma Schneider mit zwei 
Laufwerken und Farb- 
monitor beim örtlichen 
Fachhändler. 

Dipl.-Ing. Neuderth, 
Trebur 


NEUER SCHNITT- 
STELLENUMWANDLER 


Nachdem es nun die ver- 
schiedensten Computer 
von Schneider gibt, ist es 
nicht undenkbar, daß der 
eine oder andere einen 

PC zu Hause stehen hat, 
gleichzeitig aber noch 
einen CPC benutzt. Es 
wird wohl so sein, daß bei- 
de Geräte auf den glei- 
chen Drucker zurückgrei- 
fen und dabei treten dann 
die Probleme auf. Nicht 
nur speziell für Schneider- 
Anwender, sondern auch 
für alle anderen mit ähn- 
lichen Sorgen hat die Fir- 
ma Lindy einen Schnitt- 
stellenumwandler auf den 
Markt gebracht. Mit dem 
Micro-T-Schalter kann 
ohne lästige Arbeiten zwi- 
schen einem Typenrad- 
und Matrixdrucker umge- 
schaltet werden, oder es 
werden eben von zwei 
Rechnern ein Drucker 
benutzt. 

Das Gerät gibt es in einer 
preiswerten Ausführung 
als mechanischen Um- 
schalter und in einer elek- 
tronischen Version. 


NL NG 


IST DER KUNDE 
NUR DIE MELK- 


KUH? STOPPT 
ENDLICH DIE 
COMPUTER-MAFIA! 


Mitteilung an alle Computerbesitzer und -Interessenten! 

„Käufer von Computerhard- und Software haben ab sofort die Auflage, 
ihr sauer verdientes Geld in bestimmten Abständen bei der für die Computer 
zuständigen Stelle abzuliefern. Der Gegenwert für sein Geld ist bereits 
festgelegt: Er bekommt ein Stück Hard- oder Software, dessen Leistungs- 
fähigkeit oder Fehierfreiheit nur im Ermessen des Herstellers oder 
Erstellers liegt. Dieser übernimmt weder Gewähr für Fehlerfreiheit noch für 
Funktionsfähigkeit oder für die Geldwertsumme getauschter Produkte! 
Unterzeichnet: Die Computermafia.‘ 


Doch, wir schreiben noch das Jahr 
1987 und wir sind auch nicht auf 
einem fernen Planeten, sondern auf 
unserer guten alten Erde. Es stammt 
auch nicht aus einem Science-fiction- 
Roman, was Sie eben gelesen haben, 
sondern ist die nackte Realität. Der 
einzige Unterschied zu Ihrer bisheri- 
gen Denkweise ist nur, daß diese 
Zeilen etwas pauschaliert wurden. 
Haben Sie also obige Zeilen mit Er- 
staunen gelesen und schütteln Sie 
nur noch den Kopf, wie jemand sol- 
chen Schwachsinn schreiben kann? 
Nun, ich bin noch nicht (zumindest 
nicht offiziell) als schwachsinnig ein- 
gestuft und trotzdem habe ich den 
Mut, dies zu schreiben. Andererseits 
aber nehme ich von den obigen Zei- 
len auch nichts zurück! Was mich 

zu dieser fingierten Bekanntma- 
chung veranlaßt, wollen Sie wissen? 
Ich will es Ihnen gerne mitteilen, 
auch wenn es einige nun nicht sehr 
gerne lesen. 


METHODEN SIND DAS! 


Im Computergeschäft werden teil- 
weise Methoden angewandt, die 
manchem Endverbraucher eigentlich 
die Haare zu Berge stehen lassen 
können. Was ich im Vorspann 
niedergeschrieben habe, ist in Wirk- 
lichkeit nur die Essenz verschiedener 
Verkaufsbedingungen und Hand- 
lungsweisen von Firmen, die auf 
dem Gebiet der Computer tätig sind. 
Aber auch ein Schuß gesetzliche Be- 
stimmungen wurde hinzugemixt. 


Vielleicht hat mein Computer auch 
mit einer mir bis dato unbekannten 
Randomfunktion etwas dazu beige- 
tragen, man weiß ja nie. 

Lassen Sie mich, bevor ich zum ei- 
gentlichen Thema komme, erst ein- 
mal ein paar Fragen stellen. Würden 
Sie sich ein Auto kaufen, dem das 
Lenkrad fehlt oder das keinen 
Scheibenwischermotor eingebaut 
hat? Würden Sie eine Stereoanlage 
erwerben wollen, bei der nur ein 
Kanal funktioniert? Im Regelfalle 
doch sicher nicht und falls Ihnen 
unwissentlich ein derartiges Mal- 
heur passiert, dann würden Sie 
doch Ihre rechtlichen Möglichkeiten 
ausnutzen, um die Situation zu Ih- 
ren Gunsten zu ändern oder zumin- 
dest zu verbessern, oder? 

Nach dem Handsgesetzbuch (HGB), 
dem Bürgerlichen Gesetzbuch (BGB) 
und nach dem Gesetz zur Regelung 
des Rechts der Allgemeinen Ge- 
schäftsbedingungen (AGB-Gesetz) 
— und vielleicht auch noch nach ei- 
nigen anderen Gesetzen und Be- 
stimmungen — gibt es sowohl für 
den Verkäufer als auch für den 


Käufer einer Sache oder Ware ganz 
bestimmte Rechte und Pflichten. 
Unter anderem wird in den Bestim- 
mungen auch auf die Arten der 
Mängel eingegangen. Mit dem Punkt 
Mängel in der Güte (Qualitäts- 
mängel) sind auch technische Feh- 
ler oder zugesicherte Eigenschaften 
gemeint. Das sind einige Betrach- 
tungspunkte in Hinblick auf die 
Sache. 


DER KÄUFER HAT RECHTE, 

DIE KEINE GESCHÄFTS- 
BEDINGUNGEN AUSSCHLIESSEN 
DÜRFEN! 


Ich will gleich einen weiteren Punkt 
ansprechen, nämlich im Hinblick 
auf die Erkennbarkeit. In diese 
Sparte sind beispielsweise sowohl 
versteckte als auch arglistig ver- 
schwiegene Mängel einzuordnen. 
Als versteckte Mängel werden bei- 
spielsweise Fehler bezeichnet, die 
bei der Untersuchung zunächst nicht 
erkennbar sind. Arglistig verschwie- 
gene Mängel sind wiederum solche, 
die der Lieferer dem Empfänger 
absichtlich verheimlicht. 

Bezüglich der Mängel muß ein Käu- 
fer in erster Linie erst einmal seine 
Pflichten wahrnehmen. Dazu gehört 
beispielsweise die fristgerechte Rüge- 
pflicht, deren zeitliche Durchführung 
von der Mängelart und deren Ent- 
deckungszeitpunkt abhängt. Falls 
er dem Verkäufer diese Mängel- 
rüge nicht “erteilt‘“, kann dieser ja 
nicht wissen, daß die gelieferte 
Ware nicht einwandfrei ist. 
Andererseits hat ein Käufer aber 
auch Rechte, so z.B. auf Wandelung 
(so schreibt sich das wirklich), auf 
Minderung des Kaufpreises, auf 
Ersatzlieferung und ggf. auch auf 
Schadenersatz bei Nichterfüllung. 
Dies zu einigen gesetzlichen Punk- 
ten, die zum Schutz des Verbrau- 
chers gedacht sind. Ich bin kein 
Rechtsgelehrter, sondern spiele mit 
diesem Artikel mehr den Pharisäer, 
der Anbieter und auch Verbraucher 
einmal etwas zum Nachdenken 
bringen will. Damit nun aber nicht 
alles in der Luft hängt, sondern 
durch Fakten beiegt wird, bei de- 
nen ich allerdings die Firmennamen 
weglassen, werde ich einige konkre- 
te Beispiele aufzählen. 


Fall 1 


Vor ein paar Jahren wurde für einen 
gängigen Heimcomputer ein CP/M- 
Zusatzmodul angeboten. Einziger 
Nachteil dieser Erweiterung: Es gab 
keine CP/M-Software, die von der 
zu diesem Computer gehörenden 
Diskettenstation gelesen werden 
konnte. Normalerweise wäre es nun 
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zumindest die moralische Pflicht, 
daß der Anbieter auch dafür Sorge 
trägt, daß Software verfügbar wird. 


"Die Computerfirma hat nun aber 


nicht dafür gesorgt, daß CP/M-Soft- 
ware für dieses Format auf den 
Markt kam, nein, nur das Modul 
wurde vom Markt genommen, nach- 
dem einige tausend davon verkauft 
waren. 

Nun frage ich mich, was soll ein 
Endverbraucher nun mit diesem 
Modul anfangen? Zwar steht in der 
Bedienungsanleitung zu diesem 
Steckmodul “ .... eröffnet deshalb 
dem Benutzer den Zugang zu der 
riesigen CP/M-Bibliothek an Pro- 
grammen, Compilern und Inter- 
pretern‘“ (Ende des Zitats), auch 

ein paar externe Befehle standen dem 
Käufer auf der mitgelieferten Dis- 
kette zur Verfügung, aber von riesi- 
ger Bibliothek konnte wohl kaum 
die Rede sein. Eingefleischte Freaks 
gelang es zwar, von anderen CP/M- 
Rechnern Software zu überspielen, 
aber von meinem Betrachtungsstand- 
punkt aus (ich bin Besitzer dieses 
Moduls) wurde ich ganz schön auf 
den Arm genommen. Ein ebenfalls 
angekündigtes Handbuch habe ich 
nie zu Gesicht bekommen, obwohl 
ich es bestellt hatte. 


Fall 2 


Eine große Software-Firma schützte 
(aus verständlichen Gründen) ihre 
Software gegen das Kopieren. Bei 
den Programmen handelte es sich 
um Anwendungsprogramme, die 
nicht gerade billig verkauft wurden. 
Die Programme selbst waren in 
Ordnung und auch das Verhalten 
des Anbieters war eigentlich lobens- 
wert. Defekt gewordene Disketten 
wurden gegen eine geringe Gebühr 
ausgetauscht. Also eigentlich alles 
bestens. Nur, und so etwas soll ja 
ab und zu vorkommen, plötzlich 
gab es dieses Softwarehaus nicht 
mehr. Zum Zeitpunkt des Einkau- 
fes mußte aber seitens des Käufers 
ein Nutzungsvertrag unterzeichnet 
werden, in welchem auch eine 
Copyright-Klausel enthalten war. 
Wenn nun die ehemaligen Kunden 
dieser nicht mehr existierenden 
Firma einen Diskettenschaden ha- 
ben, was dürfen oder können diese 
nun tun? Der Vertrag untersagt ja 
das “Ziehen“ von Sicherheitsdupli- 
katen! Selbst wenn der Kunde also 
jemanden findet, der in der Lage 
wäre, die Programmdiskette trotz 
des Schutzes zu kopieren, darf dies 
dann geschehen? Muß andererseits 
erst ein Diskettenschaden aufgetre- 
ten sein, bevor eine — dann jedoch 
sinnlose Kopie — gezogen werden 


15 


darf? Muß der Vertrag noch einge- 
halten werden, obwohl ein Vertrags- 
partner nicht mehr existiert? Sicher- 
lich, wo kein Kläger, da kein Rich- 
ter. Aber falls dann plötzlich doch 
ein Kläger auftritt? Wenn man sich 
vor Augen hält, daß ohne das Pro- 
gramm evtl. sämtliche über Jahre 
gesammelten Daten verloren sind, 
weil diese in einem dem Anwender 
unbekannten codierten Format ab- 
gelegt wurden, dann sieht man, wel- 
che Problematik geschützte Soft- 
ware aufwirft. Überlassen wir dieses 
Problem den Gerichten, die sich 
vielleicht in der Zukunft vermehrt 
mit solchen Ungereimtheiten be- 
schäftigen dürfen. 


Fall 3 


Software-Häuser verkaufen Ihnen 
oft die Programme nicht, sondern 
mit dem Tausch “Geld gegen Ware“ 
erhält der Kunde nur ein unbegrenz- 
tes Nutzungsrecht. Dieses wieder- 
um wird aber eingeschränkt, in- 
dem es im Nutzungsvertrag heißt: 
Dieses Programm darf nur auf einem 
Computer (nämlich diesem) einge- 
setzt werden. Wie ist aber die Situa- 
tion, wenn der Kunde sich einen 
neuen Computer zulegt, weil die 
Leistungsfähigkeit des alten nicht 
mehr ausreicht? Macht er sich schon 
strafbar, wenn er das Programm auf 
einem Computer in seiner Zweit- 
wohnung laufen läßt? Wie ist die 
Situation, wenn er seinem Bruder, 
der 500 km von ihm entfernt 

wohnt und ebenfalls einen Compu- 
ter besitzt, das Programm vorfüh- 
ren will, muß er dann auch sein 
Computersystem mitnehmen? 

Falls jemand seinen Computer ver- 
kauft, darf er dann ein ““Nutzungs- 
programm“‘ mitgeben? Wenn man 
manche Nutzungsverträge wörtlich 
nimmt, dann nicht! Manchmal 

wird die Übertragbarkeit — mit dem 
Hinweis darauf, daß Name und An- 
schrift der dritten Person an den 
Lizenzgeber zu melden sind — ge- 
stattet. Würde dies aber tatsächlich 
in allen Fällen erfolgen, dann könn- 
te bei dem massenhaften Einsatz 
von Computern — und dem daraus 
auch resultierenden Verkauf von 
gebrauchten Geräten — der Lizenz- 
geber durch die eingehenden Mel- 
dungen schon eine kleine Altpapier- 
verwertungsfirma aufbauen. 
Manchmal wird dann auch noch ge- 
fordert, daß diese dritte Person 
dann eine Lizenzgebühr entrichten 
muß. Kassiert der Software-Her- 
steller hier nicht zweifach? Es macht 
doch keinen Unterschied, ob nun 
der Erstkäufer sein Leben lang mit 
dem Programm arbeitet, oder ob das39 


nn nn 


Originalprogramm mit den zugehö- 
rigen Unterlagen weitergegeben 
wird, wenn der Erstkäufer keine 
Programmkopien gezogen hat! 


Fall 4 


In manchen Handbüchern zu Com- 
putern ist auf den letzten Seiten ein 
Endabnehmer-Lizenzabkommen zu 
finden. In diesem steht dann, sinnge- 
mäfßs, daf% Sie mit den Bedingungen 
des Lizenzabkommens einverstan- 
den sind, wenn Sie das Disketten- 
paket öffnen. Wer aber fängt beim 
Studium des Handbuches hinten 
an? Wird hier ein Käufer nicht wis- 
sentlich lange in Unwissenheit ge- 
lassen? Bis er auf diesen Seiten des 
Handbuches angekommeniist, hat 
er unter Umständen schon mehr- 
mals gegen das Lizenzabkommen 
verstoßen, ohne es zu kennen. 

Liest man Nutzungsverträge oder 
Lizenzabkommen einmal genauer 
durch, dann stellt man fest, dat die 
Rechte des Kunden gehörig einge- 
schränkt werden. Es wird keine 
Garantie übernommen, daß sich das 
Programm für bestimmte Anwendun- 
gen eignet und falls sich das Pro- 
gramm als fehlerhaft erweist, hat 
der Käufer sämtliche Kosten aus 
Reparatur und Service zu tragen. 
Ja, wo gibt es denn sowas nochmal? 
In überzogenem Klartext bedeutet 
dies doch, daß ein Anbieter ein feh- 
lerhaftes Programm liefern darf und 
dann noch kassiert, wenn der Käu- 
fer versucht, sein Recht auf Mängel- 
beseitigung zu erreichen. Um es 
ganz brutal auszudrücken, dies gibt 


dem Hersteller ja fast das Recht, ab- 
sichtlich ein nicht fehlerfreies Pro- 
gramm verkaufen zu dürfen, um 
dann bei den Nachbesserungen noch- 
mals zu verdienen. 

Natürlich gibt es in diesen Lizenz- 
abkommen auch Pflichten für den 
Ersteller der Software. Er verpflich- 
tet sich, eine Ersatzdiskette zu 
schicken, wenn das Original fehler- 
haft ist. Der Zusatz, daf dann, wenn 
der vom Käufer monierte Mangel 
nicht behoben werden kann, der 
Kaufpreis zurückerstattet wird, be- 
zieht sich aus Sicht des Lieferan- 
ten nur auf die Diskette, nicht aber 
auf das komplette System, auch 
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wenn der Käufer ein soiches ge- 
kauft hat. Um die Angelegenheit 
einmal ganz überzogen darzustellen, 
kann man theoretisch einmal den 
Fall konstruieren, daß ein Compu- 
ter auch dann in Ordnung ist, 

wenn er nur rechnet, aber alle Aus- 
gaben unterbleiben, denn er ist 
doch ein Rechner. 


Fall 5 


Ein Computerhersteller brachte ein 
Gerät auf den Markt, bei dem das 
zum Computersystem gehörige 

Basic bis heute (ca. 2 Jahre danach) 
noch nicht fehlerfrei ist. Gekauft 
wurde aber doch ein System mit der 
Programmiersprache Basic. Welche 
Möglichkeiten hat ein Kunde, dieses 
Dilemma zu beseitigen, ohne noch- 
mals in die Tasche greifen zu müssen? 


Weitere Fälle 


Was kann ein Verbraucher tun, 
wenn im Handbuch zum Computer 
bestimmte Basicbefehle aufgeführt 
sind, die der Rechner dann aber gar 
nicht hat? Kann das System zurück- 
gegeben werden, wenn die Wahl des 
Kunden genau wegen dieser Befehle 
getroffen wurde? 

Welche Rechte hat eigentlich ein 
Kunde, der sich einen IBM-Kompa- 
tiblen kauft, ihn mit einer Zusatz- 
karte ausbaut und feststellen muß, 
in Verbindung mit dieser Erweite- 
rung arbeitet der — als doch so kom- 
patibel angepriesene — Computer 
nicht, wenn das Original damit aber 
keine Probleme hat”? 

Was sollen die Einschränkungen, 
daß ein Programm nur auf einem 
Computersystem eingesetzt werden 
darf “... nurauf diesem...“ 
Auch auf Musikkassetten bzw. den 
urheberrechtlich geschützten Musik- 
stücken gibt es Copyrights. Aber 

es würde einem Copyright-Besitzer 
nicht im Traume einfallen zu verlan- 
gen, daß ich dieses Musikstück nur 
auf einem Kassettenrekorder an- 
hören darf. 

Da liest sich folgende Formulierung 
schon besser: “Der rechtmäßige 
Erwerb einer Programmdiskette und 
eines Handbuches erlaubt die Nut- 
zung der Programme analog der Be- 


-nutzung eines Buches. Entspre- 


chend der Unmöglichkeit, daß ein 
Buch an verschiedenen Orten von 
mehreren Personen gelesen wird, 
darf das Softwareprogramm nicht 
gleichzeitig von verschiedenen Per- 
sonen, an verschiedenen Orten und 
auf verschiedenen Geräten benutzt 
werden. Diskettenkopien dürfen le- 
diglich zum Zweck der Datensiche- 
rung angefertigt werden.“ (Ende 
des Zitates.) 
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Es folgen weitere Auszüge aus 
Bedienungsanleitungen usw., grob 
zusammengefaßt, um Sie direkt da- 
mit zu konfrontieren. 

“Die Gewährleistung entfällt, wenn 
das gelieferte Originalprodukt ... 
beschädigt worden ist.‘“ Durch diesen 
Satz ist völlig unklar, von wem die 
Beschädigung herbeigeführt worden 
sein muß. 

Was ist, wenn die Beschädigung also 
schon bereits beim Lieferanten her- 
beigeführt wurde? Sicher wird ein 
Endverbraucher einen verständnis- 
vollen Richter finden, wenn er über 
den Rechtsweg gehen muß, aber 
allein der Ärger, bis es zu einem 
Richterspruch kommt! 

“Zur Programmsicherung ist es dem 
Käufer erlaubt, eine Kopie des Pro- 
grammes anzufertigen. An der Kopie 
muß der Copyright-Vermerk des 
Programms fest angebracht werden.“ 
Wer denkt schon immer an das, was 
irgendwo klein geschrieben stand? 
Wie schnell vergißt man im Eifer 

der Arbeit einmal, diesen Vermerk 


BILD ABSPEICHERN, 


ABER WIE? 

Der Speicherbereich, den 
der Bildschirm im CPC 
belegt, ist kein großes 
Geheimnis. Trotzdem 
taucht immer wieder 
die Frage auf, wie 
denn auf einfache 
Weise ein Bild abzu- 
speichern sei. Am aller- 
einfachsten ist es, die- 
sen Speicherbereich in 
Binärform auf Disket- 
te zu legen. Hier benö- 
tigt ein File zwar 16 K, 
doch angesichts der 
Problemlosigkeit der 
Routine ist dies leicht 
zu verschmerzen. Natür- 
lich muß der Speicher- 
befehl als Programm- 
zeile vorliegen. Direkt 
eingegeben würde er ja 
das Bild zerstören. Der 
entsprechende Befehl 
muß lauten: 

SAVE“ BILD“ ,B,& 
C000,4000 

Beim Einlesen sind 
dann Unterschiede zwi- 
schen dem Datenrecor- 
der und der Diskette 
zu machen. Während 

in der Rekorderver- 
sion zum Einlesen 
LOAD“BILD“,B, 
&C000,&4000 
eingetippt werden 
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anzubringen und schon hat man ge- 
gen den Vertrag verstoßen. 
“Fehlerhafte Erzeugnisse, die binnen 
30 Tagen nach Lieferung auf Kosten 
des Kunden zurückgesandt werden, 
werden unter Ausschluß des Rechtes 
auf Minderung oder Wandlung an- 
standslos ersetzt.‘ 

Hier wird doch eindeutig das Recht 
des Käufers beschnitten. Erhält 
dieser est. dann wieder den gleichen 
Schrott? Denn Ausschluß der Wand- 
lung, was heißt denn das? 

“Das Programm (... . Programm- 
name...) wird unter der Bedin- 
gung verkauft, daß dieses nur auf 
der käufereigenen Computer-Anlage 
eingesetzt wird.‘ (Ende des Zitates) 
Was ist, wenn dieses Programm von 
einem selbst an der Computeranlage 
eines Bekannten zum Laufen ge- 
bracht wird? 

. (Firmenname). ... übernimmt 
keine Garantie für das fehlerfreie 
Funktionieren der Software oder 
für die Genauigkeit der Daten.“ 
(Ende des Zitats.) Ja wer denn dann, 
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der Käufer vielleicht? 

Eigentlich will man doch ein fehler- 
freies Programm erwerben! 
Abschließend zu diesem Thema 
kann man nur sagen, der Endver- 
braucher darf direkt froh sein, 

daß er gekaufte Programme über- 
haupt benutzen darf. 


HANDBÜCHER BILDEN 
KEINEN UNTERSCHIED 


Schauen wir mal in Handbücher und 
Bedienungsanleitungen. Was steht 
denn da so alles? 

“Jegliches Kopieren der Bedienungs- 
anleitung ist nicht gestattet.‘ (Ende 
des Zitats.) Oft sind solche Anlei- 
tungen aber nur Schmierzettel, wel- 
che die Bezeichnung Bedienungsan- 
leitung nicht einmal verdienen und 
sich nach der zweiten Benutzung 
bereits selbst zerlegen. 
“Vervielfältigungen ... auch nur 
auszugsweise... . dieses Handbuches 
bedürfen einer vorherigen schriftli- 


muß, der Speicherbe- 

fehl also nur durch 

Load ersetzt wird, be- 

gnügt sich die Disket- 

tenstation mit 

LOAD“BILD“. Sie 

werden sofort nach 

dem Einlesen feststel- 
len, daß sich das Bild 
durch die READY- 

Meldung nach oben 

verschiebt, die Grafik 

also zerstört wird. 

Verwenden Sie deshalb 

auch zum Einlesen ein 

kleines, dreizeiliges 

Programm: 

10 MODE (gleicher, 
wie beim Abspei- 
chern) 

20 LOAD“ BILD“ ,B, 
&C000,&4000 

30 CALL &BBO6 

40 REM Weiter z.B. 
mit Hardcopy 


FEHLER 
BEI DECS 


Wenn Sie ein paar Minu- 


ten Zeit haben, dann 
geben Sie einmal fol- 
gendes Programm ein: 
10A=3 

20PRINT A 
30PRINT STR$(A) 
40PRINT DEC$ 


“ “ 


((A, 
SOA$=RIGHT$ 


(& “+STR$(A), 1) 
60PRINT A$ 
Was p.ıssiert hierbei? 
Die Zahl 3 wird durch 
Zeile 20 mit dem 
(nicht sichtbaren, weil 
positiven) Vorzeichen 
ausgegeben. Die glei- 
che, erst in der zwei- 
ten Spalte erscheinen- 
de Ziffer bringt der 
STR$-Befehl auf den 
Monitor. Abhilfe 
schafft da der DEC$-, 
Befehl, sofern Sie ei- 
nen CPC 464 besitzen. 
Wie Sie nämlich sehen 
können, ist ein Fehler 
(eine Klammer zuviel) 
nötig, damit der Inter- 
preter die Anweisung 
akzeptiert. Die mathe- 
matisch richtige Ein- 
gabe wird mit ‘“Syn- 
tax Error“ quittiert. 
Beim CPC 464 und 
CPC 6128 hat man die- 
sen Fehler korrigiert 
und muß den Befehl 
mit der richtigen 
Klammeranzahl einge- 
ben: DEC$(A,“#“). 
Was aber tun, wenn 
man bei seinen Pro- 
grammen ein wenig auf 
Kompatiblität achten 
will? Beispielsweise um 
diese kommerziell anzu- 
bieten, oder auch nur, 
um im Freundeskreis 
ein wenig tauschen zu 


können. Abhilfe schaf- 
fen da die Zeilen 50 
und 60, die von beiden 
Geräten verstanden 
werden. 


Konkreter Nutzen bringt 


dieser Trick bei einer 
Highscore-Tabelle. Die 
Ausdruckroutine sei 
hier mal kurz darge- 
stellt. 


nor „ NAME:“ 


NA$ 
20N$=RIGHTS 
(“ _“+UPPER$ 


30PRINT N 


Hierdurch kann ein bis 
zu 10 Zeichen langer 
Name eingegeben wer- 
den, der in Großbuch- 
staben (dies muß nicht 
sein) am rechten Rand 
dieser 10 Zeichen um- 
fassenden Platzes aus- 
gegeben wird. Natürlich 
gibt es noch viele an- 
dere Stringbefehle, und 
auch mit der PRINT 
USING-Anweisung 
läßt sich viel erreichen. 
Dies sollte nur eine An- 
regung sein, sich dieses 
Kapitel der Program- 
mierkünste etwas näher 
anzuschauen, denn hier 
ist der Schneider CPC 
fast unschlagbar. So 
etwas muß man doch 
nutzen, oder!? 


chen Genehmigung... “ (Ende des 
Zitats.) Muß ich als Endkunde 
dann drei Wochen warten, um Er- 
satz zu bekommen, falls ich mir aus 
Zeitgründen diese Nachfrage erspart 
habe und versehentlich das Hand- 
buch vernichtet habe? 


FAZIT 


Zum Abschluß dieses Artikels, bei 
dem absichtlich einiges überzogen 
dargestellt wurde, kann ich nur noch 
feststellen, daß der Kunde eigent- 
lich überhaupt keine Rechte hat, was 
ihm durch nachfolgenden Auszug 
eines englischen Handbuches auch 
klar vor Augen geführt wird: 
“Copyright... All rights reserved.“ 
War der Anfang des Artikeltextes 
wirklich so absurd? Ich persönlich 
habe mich entschlossen, Produkte 
von Firmen, die auf solchen Klau- 
seln bestehen, möglichst zu ver- 
meiden. (LM) 
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SERIE 


KILO IST 


NICHT IMMER 


KILO: 


Wie bereits versprochen, beginnen wir in diesem 
Heft mit der Maschinensprache-Programmierung der 
CPC-Serie von Schneider. Bevor wir aber richtig 
einsteigen können, müssen erst die erforderlichen 
Voraussetzungen für Sie geschaffen werden. Deshalb 
erst einmal Grundsätzliches über den CPC. 


Je nachdem, welchen 
CPC Sie Ihr Eigen nen- 
nen, sagt die Bezeichnung 
aus, um was für einen 
Schneider es sich handelt. 
„464“ bedeutet Version 
mit Kassettenrekorder 
und 64 KByte RAM- 
Speicher. 

„664“ heißt Ausführung 
mit eingebautem Disket- 
tenlaufwerk und 64 K- 
Byte RAM-Speicher. Die 
erste Ziffer sagt also aus, 
welches Massenspeicher- 
medium eingebaut ist, 
die folgenden Ziffern, 
wieviel RAM-Speicher- 
kapazität der jeweilige 
CPC hat. Folglich ist der 
CPC 6128 mit einer Dis- 
kettenstation ausgerüstet 
und besitzt 128 KByte 
RAM. 


AM ANFANG WAREN 
ADAM UND EVA 


Da wir nicht wissen, wel- 
ches Grundwissen wir 

bei Ihnen voraussetzen 
dürfen, können oder müs- 
sen, bleibt uns wirklich 
nichts anderes übrig, 

als bei „Adam und Eva“ 
nazufangen, wie Sie wahr- 
scheinlich schon bemerkt 
haben. Auch diejenigen 
unter Ihnen, die mit ihrem 
Wissen schon weiter sind, 
sollten trotzdem weiter- 
lesen, denn es schadet 
bestimmt nicht, das Wis- 
sen wieder etwas aufzu- 
frischen. 

Weiter oben wurde von 
KByte-RAM geschrieben, 
was bedeutet das denn? 
Klären wir zunächst den 
Begriff Byte. Ein Byte 
besteht aus 8 Bit. Jedes 


Bit signalisiert den Zu- 
stand eines „Schalters‘“. 
Ein normaler Schalter 
kann zwei Zustände ha- 
ben, nämlich Schaltkon- 
takt offen oder geschlos- 
sen. 

Für ein Bit gilt das glei- 
che, es kann entweder 
gesetzt oder nicht ge- 
setzt sein. Da ein Byte 
aus acht Bit besteht, kön- 
nen deshalb insgesamt 
256 „Schalterstellun- 
gen‘ ausgewählt werden. 
Das bedeutet, in jedem 
Byte können Werte von 
0 bis 255 gespeichert 


sein. Wer es gern mathe- 
matisch begründet haben 
will, bitte sehr: 

2 hoch 8 = 256. 


COMPUTER-,,‚KILO“ 


Das Zeichen ‚K‘“ vor dem 


Wort Byte bedeutet Kilo. 
Aber Stop, nicht gleich 
den Schluß ziehen, daß 
deshalb ein KByte 1000 
Byte wären, denn dann 
müßte das „k“ klein ge- 
schrieben werden. „K“ 
und ‚‚k“ sind also nicht 
identisch. Der Ursprung 
des ‚„‚Computer-Kilos‘“ 


stammt direkt aus der 
Computerei und hat ganz 
bestimmte Hintergründe. 
Deshalb zunächst noch- 
mal zurück auf die Byte- 
Ebene. Insgesamt 256 
Zustände sind durch ein 
Byte darstellbar. Soll 
nun beispielsweise ein 
Byte einen Zeiger darstel- 
len, der auf ein bestimm- 
tes anderes Byte zeigt, 
dann könnten dadurch 
also maximal 256 Bytes 
adressiert werden. Die- 
ser Adressumfang wird 
eine ‚page‘ (Seite) ge- 
nannt. Vier pages bilden 
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ein „Kilo“ und nun ist 
auch klar, wieviel Zei- 
chen ein Kilobyte (K- 

Byte) besitzt, nämlich: 


4x*256 Bytes = 1024 
Bytes = ] KByte. 


Daraus folgt nun, daß 
ein CPC x64 insgesamt 
64*1024 = 65536 und 
ein CPC 6128 128*1024 
=131072 RAM-Speicher- 
stellen besitzt. 
Was bedeutet die Bezeich- 
nung RAM? Sie ist die 
Abkürzung von Random 
Access Memory und be- 
deutet soviel wie Speicher- 
stellen mit wahlfreiem 
Zugriff, das heißt, diese 
können sowohl gelesen, 
n auch beschriben wer- 
en. 


42 STATT 64 FREIE 
KILOBYTES, WARUM? 


Damit ist dieser Punkt ge- 
klärt. Warum aber mel- 
det der CPC 464 ohne 
Diskettenstation 43533 
Bytes frei, wenn man mit 
PRINT FRE(“ ““) nach 
seinen noch freien Spei- 
cherstellen fragt? Der CPC 
664 oder auch ein CPC 
464 mit angeschlossener 
Diskettenstation aber 
meldet 42249 freie Bytes. 
und ein CPC 6128 gibt 
die gleiche Antwort aus. 
Gleich die nächste Frage: 
Warum ist es überhaupt 
möglich, daß der CPC 
etwas tut, und sei es nur, 
daß er nach dem Einschal- 
ten seine Meldung bringt, 
oder auf die Frage nach 
seinem freien Speicher- 
platz antwortet”? Diese 
Fragen sollen nun beant- 
wortet werden. 

Wie Sie sicherlich wissen, 
ist im CPC ein Mikro- 
prozessor des Typs Z80A 
eingesetzt. Dieser gehört 
zur Gattung der 8-Bit- 
Prozessoren und kann 
insgesamt einen Adress- 
bereich von 64 KByte ver- 
walten. Damit aber ein 
Computer überhaupt et- 
was tun kann, muß um 
den Prozessor herum 
noch mehr an Elektronik 
vorhanden sein. Davon 
später noch mehr De- 
tails. Wichtig für die der- 
zeitigen Betrachtungen 


ist, daß der Computer 
auch ein Betriebssystem 
haben muß, das, wie der 
Name schon sagt, den 
Betrieb ermöglicht. In al- 
len CPCs befindet sich 
ein ROM - also ein Nur- 
lesespeicher — des Typs 
TMM 23256. Dieses 
ROM wird als Firmware- 
ROM bezeichnet. Es be- 
sitzt eine Kapazität von 
32 KByte und enthält 
alles an Firmware (also 
alle Software-Teile), die 
der CPC für seinen Be- 
trieb benötigt. So bei- 
spielsweise auch einen 
Basic-Interpreter, der Ein- 
gaben erlaubt. Auch da- 
von später noch mehr. 
Da der Z80A aber nur 
einen Adressbereich von 
64 KB ansprechen kann, 
dürfte der CPC auch nur 
noch maximal 32 KByte 
als freien RAM-Speicher 
melden. Denn 64 KByte 
(gesamter RAM-Speicher) 
minus 32 KByte (Firm- 
ware-ROM) = 32 KByte. 
Irgendwie stimmt diese 
einfache Betrachtungswei- 
se aber nicht, dann sonst 
müßte der CPC ja die ma- 
thematische Differenz 
von 32 KByte melden. 
Deshalb nun auch bezüg- 
lich dieses Punktes erst 
weitere Hintergrundin- 
formationen. 

Die Entwickler der CPCs 
haben sich — so wie auch 


IM CPC BEFINDEN 


SICH MEHRERE 
“RAM-ETAGEN” 


andere Computerherstel- 
ler — einen kleinen Trick 
einfallen lassen, um mehr 
als 64 KByte adressieren 
zu können. Sie haben 
dem Haus (CPC), in dem 
sich im Erdgeschoß die 
RAM-Speicherstellen be- 
finden, noch weitere 
Stockwerke verpaßt 
(siehe Bild 1). 

Durch die entsprechen- 
de Auswahl-Elektronik 
wird dann je nach Bedarf 
von einem Stockwerk 

in das andere umgeschal- 
tet. Im CPC überlagern 
sich also in ganz bestimm- 
ten Bereichen RAM und 
ROM. ROM ist die Ab- 
kürzung von Read Only 
Memory, also die Bezeich- 
nung für einen Nurlese- 
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Speicher. Die Informa- 
tionen können nur ausge- 
lesen werden. Einschrei- 
ben ist nicht möglich. 
Bei der Erstellung eines 
ROMSs werden die Daten 
dauerhaft eingeschrie- 
ben und sind nicht mehr 
veränderbar. 

In diesem Zusammen- 
hang soll auch gleich der 
Begriff EPROM geklärt 
werden. Diese Buchsta- 
benfolge ist die Abkür- 
zung von Erasable Pro- 
grammable Read Only 
Memory und bezeichnet 
Nurlese-Speicher, die 
aber mittels UV-Licht ge- 
löscht und mit einem ei- 
gens hierfür zuständigen 
Brenngerät, dem 
EPROMer, beschrieben 
werden können. 

So, nun geht es wieder 
weiter mit dem CPC 
selbst. Wie schon ange- 
führt, beinhaltet er ein 
Firmware-ROM mit 32 
KByte Kapazität. Im 
CPC ist dieses elektrisch 
betrachtet aber in zwei 
Hälften aufgeteilt. Der 
untere Teil, der das Ker- 
nel enthält, liegt im 
Adressberiech &0000 

bis &3FFF dem RAM pa- 
rallel, also sozusagen im 
ersten Stock. Der zweite 
Teil ist ab &CO000 zu fin- 
den und überlagert des- 
halb die Bildschirm-RAM- 
Speicherzellen, die eben- 
falls von &CO00 bis 
&FFFF gehen. 

Das waren nun sicherlich 
zu viele Informationen 
auf einmal, deshalb der 
Reihe nach. Zunächst 

ist das kaufmännische 
Und-Zeichen (&) an der 
Reihe. Dieses kennzeich- 
net die nachfolgenden 
Zeichen als Hexadezimal- 
zahl. Wie Sie vielleicht 
noch aus der Schule wis- 
sen, arbeiten wir beim 
normalen Rechnen mit 
dem Zahlensystem der 
Basis zehn. Das bedeutet, 
daß wir immer von O bis 
neun zählen, dann die 
linke Stelle um eins er- 
höhen, wieder mit O bis 
neun beginnen usw. Es 
gibt aber auch ein ande- 
res Zahlensystem, wie 
z.B. die binäre Zählweise. 
Diese haben Sie zwar 
schon bei den Bitbetrach- 


tungen kurz kennenge- 
lernt, aber nun soll doch 
auch auf diese näher ein- 
gegangen werden. Ein 
„Computerbit‘ kennt 
nur zwei Zustände, näm- 
lich Bit gesetzt oder 
nicht. Mit anderen Wor- 
ten also die Zustände aus 
oder ein, bzw. ‚‚Null“ 
oder „Eins“. In Ziffern: 
0 oder 1. Ein Byte hat 
acht Bit und wenn wir 
nun den Inhalt eines 
Bytes in binärer Darstel- 
lung ansehen, dann sieht 
das beispielsweise folgen- 
dermaßen aus: 
00110011 

Analysieren wir nun die- 
ses Byte einmal von der 
Bit-Ebene aus. Die 
Zählweise beginnt rechts 
und verläuft nach links. 
Gezählt wird ab Null. 
Das ganz rechte Bit ist 
deshalb das Bit 0, das 
links danebenstehende 
Bit 1 usw. bis Bit 7. 


DER CPC KANN VIEL 
ARBEIT FÜR SIE 
ERLEDIGEN 


Für unser Beispiel können 
wir nun aussagen, daß Bit 
1, Bit 2, Bit 5 und Bit 6 
gesetzt sind. Diese enthal- 
ten die Ziffer eins. Die 
anderen sind nicht gesetzt 
und enthalten Nullen. 
Nun müssen wir uns noch 
mit der Wertigkeit beschäf- 
tigen. Bit 0 hat die Wer- 
tigkeit eins. Das bedeu- 
tet, daß im Falle von O 
(nicht gesetzt), der Wert 
Null und falls der Inhalt 

1 ist, auch der Wert Eins 
ist. Bit 2 hat die Wertig- 
keit 2. Bit 3 hat die Wer- 
tigkeit 4 usw. 
Anschaulicher wird alles, 
wenn man die Wertig- 
keit der einzelnen Bit 

auf einen Blick sieht. 

In der Tabelle 1 sehen 
Sie die Bit-Nummern und 
darunter die Wertigkei- 
ten. Weiterhin sind für 
verschiedene Werte 
(Dezimalzahlen) die 
Binärzahlen abgebildet. 
Wer sich ein klein wenig 
mit dieser Materie be- 
schäftigt, hat bald den 
Dreh raus. Um eine Binär- 
zahl in die äquivalente 
(=gleichwertige) Dezi- 
malzahl umzuwandeln, 
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braucht man nur die 
Werte, unter denen eine 
Eins (1) steht, aufzu- 
addieren, schon hat man 
den dezimalen Wert. 

So einfach ist das. Die 
Umwandlung einer De- 
zimal- in eine Binärzahl 
ist ebenfalls möglich, 
aber nicht ganz so ein- 
fach. Damit wir aber nicht 
auch noch einen Mathe- 
matikkurs durchführen 
müssen, empfehlen wir 
Ihnen, für Zahlenumwand- 
lungen am besten gleich 
Ihren CPC einzusetzen. 
Denn dieser ist ja ein 
Rechner, der verschiede- 
ne Zahlenumwandlungen 
durchführen kann. 

Kurz zur Erinnerung: 


Umwandlung einer Dezi- 
malzahl in eine Binärzahl: 


PRINT BIN$(Dezimal- 
zahl) 
Pan Dezimalzahl 


PRINT BIN$(69) 
Antwort des CPC: 
1000101 


Umwandlung einer Dezi- 
mal- in eine Hexzahl: 


PRINT HEX$(Dezimal- 
zahl) 
Beispiel: Dezimalzahl 


=] 
PRINT HEX$(100) 
Antwort des CPC: 64 


Umwandlung einer Hex- 
zahl in eine Binärzahl: 


PRINT BIN$(&FE) 
Antwort des CPC: 
11111110 

usw. 


Wer bei solchen Umwand- 
lungen noch Probleme 

hat, sollte die entsprechen- 
den Abschnitte im Hand- 
buch seines CPC noch- 
mals nachlesen. 

Wie Sie sehen, kann der 
CPC viel Arbeit für Sie 
erledigen. 


SINN UND ZWECK 
DER UMWANDLUNGEN 


Warum haben wir Ihnen 
überhaupt diese Umwand- 
lungsgeschichten mitge- 
teilt und warum auch 
noch die Binärwandlun- 
gen? Der Grund ist ganz 
einfach, die Bits stellen 
elektronische Schalter 
dar, die entweder gesetzt 


sind oder auch nicht. 

Da auch der CPC — so 
wie alle anderen digital 
arbeitenden Computer — 
nach diesem Prinzip 
funktioniert, und auch 
bei verschiedenen Proble- 
men die „Bit-Betrach- 
tungsweise“ übersichtli- 
cher ist, haben wir Sie 
etwas einweisen wollen. 
Warum aber auch noch 
die Hexadezimalzahlen, 
die eigentlich korrekter- 
weise Sedezimalzahlen 
heißen? Auch das ist 
schnell gesagt. Erstens 
kann man sich die Hexa- 
dezimal- oder Hexzahlen 


leichter merken als Binär- ' 


zahlen und außerdem ge- 
schieht auch die Dar- 
stellung durch die mei- 
sten Utilities und Moni- 
tore (Programme, nicht 
Bildschirme!) in hexa- 
dezimaler Form. Bei um- 
fangreicheren Darstellun- 
gen sind dadurch mehr 
Informationen auf einem 
vorgegebenen Bildab- 
schnitt oder Papierraum 
unterzubringen. 


ORGANISATION 
IST ALLES 


Nun noch zur Organisa- 
tion der CPCs. Der Bild- 
schirmspeicher dieser 
Computer belegt 16 K- 
Byte und ist im Normal- 
fall ab &C000 zu finden 
(es ist aber auch möglich, 
ihn in den Bereich ab 
&4000 zu legen). Außer- 
dem braucht ein Com- 
puter auch noch RAM- 
Speicherstellen, in denen 
er sich etwas merkt, also 
zwischenspeichert. Wenn 
das nicht so wäre, dann 
könnten Sie keinen PEN 
auswählen, HIMEM nicht 
verändern, ja Sie könn- 
ten den Computer kaum 
dazu veranlassen, etwas 
sinnvolles zu leisten. 

Aus all diesen Gründen 
(und noch vielen ande- 
ren) wird also vom Be- 
triebssystem RAM-Spei- 
cher belegt. Deshalb muß 
die frei verfügbare Spei- 
cherkapazität von 64 
K-Byte um den Bild- 
schirmbereich und um 
die vom System nicht 
freigegebenen Bytes ver- 
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Tabelle 1 


Bit: 6 543 2 ı09 
Wertigkeit: 128 64 32 16 8 4 2 1 
0 000 °0d0r 0° 0 
1 00000 0 071 
2 00000 0 1 90 
3 00 00r0r 0 ı71X 
4 000 00 11 90090 
7 00 0r0r0r ı71 19 
17 000 7100071 
55 00 ı71709d 171 1 
69 01000 ı1ı. 071 
255 1.1. % Wi 1% 4 
Tabelle 2 
DEZ HEX DEZ HEX 
0 0 16 10 
1 1 17 11 
2 2 18 12 
3 3 19 13 
4 4 20 14 
5 5 21 15 
6 7 22 16 
8 8 ME 28 
9 9 50 32 
10 A 90 5A 
11 B 100 64 
12 c 200 c8 
13 D 221 DD 
14 E 254 FE 
15 F 255 FF 


ringert werden, wenn wir 
wissen wollen, wieviel 
Speicherkapazität einem 
Anwender unter Basic 
zur Verfügung steht. 
Dann ergeben sich näm- 
lich die Werte, die auf 
Anfrage (PRINT FRE(“ “) 
ausgegeben werden. Doch 
halt, der CPC 6128 hat 
doch 128 KByte! Also 
müßte er doch auch 64 
KByte mehr melden als 
seine Brüder! Falsch ge- 
dacht, denn dieser zwei- 
te RAM-Speicherblock 
kann unter Basic nicht 
angesprochen werden 
und deshalb werden seine 
zusätzlichen Bytes nicht 
mitgemeldet! 

Der unter Basic nutzbare 
RAM-Speicherbereich, 
also der Bereich, in dem 
ein Basicprogramm und 
die Variablen des Basic- 
programmes abgelegt 
sind, bzw. werden, be- 
sinnt bei &170 (dezimal 


368) und endet bei 
HIMEM. Die Speicher- 
stellen unterhalb 170 wer- 
den teilweise vom Be- 
triebssystem genutzt. 
Oberhalb von HIMEM 
liegen, falls Sie HIMEM 
durch MEMORY nicht 
tiefer gesetzt und damit 
Platz reserviert haben, 
viele Speicherstellen, auf 
die wir ein anderes Mal 
zu sprechen kommen. 
Eines aber soll gleich ver- 
merkt werden, Zusatz- 
ROMs — das Amsdos, 
also das Betriebssystem 
der Diskettenstation, ist 
eines davon — belegen 
für sich in vielen Fällen 
ebenfalls Speicherplatz. 
Deshalb können 464-Be- 
sitzer feststellen, daß bei 
nicht eingeschalteter 
Diskettenstation mehr 
Speicherplatz zur Verfü- 
gung steht. Dies ist mit 
ein Grund, weshalb eini- 
ge ältere Spiele, die für 
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den CPC 464 geschrieben 
wurden, bei Vorhanden- 
sein einer Diskettensta- 
tion nicht laufen. 


WARUM KOLLIDIEREN 
RAM UND ROM NICHT? 


Das CPC-Betriebssystem 
berücksichtigt, daß RAM/ 
ROM-Überlagerungen vor- 
handen sind und deshalb 
merkt ein Basicanwen- 
der hervon überhaupt 
nichts. Bei der Program- 
mierung in Maschinen- 
sprache aber muß dies 
ggf. berücksichtigt wer- 
den. Vor allem dann, 
wenn nicht über die Soft- 
wareschnittstellen gear- 
beitet wird, sondern di- 
rekt auf ROM-Routinen 
zugegriffen werden soll. 
Die Softwareschnittstel- 
len sind festgelegte RAM- 
Einsprungadressen, die 
teilweise mit und ohne 
Parameterübergabe ange- 
sprungen werden kön- 
nen. Ein Beispiel ist die 
Adresse &BBO6, die be- 
wirkt, daß nach einem 
CALL &BB06 der CPC 
auf einen Tastendruck 
wartet. 

Der Aufruf von CALL 
&BB6C hingegen 

löscht das gerade aktuel- 
le Fenster. Beim CPC 
werden dem Anwender 
viele genau definierte 
Systemeinsprünge zur 
Verfügung gestellt, de- 
ren genaue Ein- und Aus- 
sprungbedingungen im 
Firmware-Handbuch 
(von Schneider) zu fin- 
den sind. 

Ein Teil dieser Firm- 
wareeinsprünge liegt 

ab &B900, ein anderer 
Teilab &BBO0. Im Lau- 
fe unserer Artikel über 
die Maschinensprache 
werden wir dann noch 
näher auf verschiedene 
Einsprungadressen ein- 
gehen und auch zeigen, 
wie diese eingesetzt wer- 
den können. 

Mit dieser Einleitung 
wollen wir es für dieses 
Mal gut sein lassen. 

Im nächsten Heft be- 
ginnen wir dann bereits 
mit der Programmierung 
in Maschinensprache und 
den ersten kleinen Pro- 
grammen. 


SERVICE 


BÜCHER-KISTE 


Stellen Sie sich vor, Sie 
haben noch nie mit einem 
Computer gearbeitet (oder 
gespielt) und steigen nun 
gleich ein, indem Sie sich 
den Schneider PC 1512 
kaufen. Die Situation ist 
gar nicht so undenkbar. 
Viele kleinere Geschäfts- 
leute oder Studenten lei- 
sten sich einen PC, ohne 
vorher Kontakt mit ei- 
nem Computer gehabt 
zu haben, sei es auch 
„nur“ ein Homecomputer. 
Handbücher im allgemei- 
nen, und leider auch das 
zum Schneider PC, sind 
kaum dazu geeignet, ei- 
nen Anfänger einzufüh- 
ren. Entweder sind die 
Manuals unvollständig 
oder sie werden unüber- 
sichtlich. Was Wunder 
wenn gerade für die Ziel- 
gruppe der Computer- 
neulinge ein Buch nach 
dem anderen erscheint. 
Eines der besten dieser 
Sparte haben wir her- 
ausgegriffen und für Sie 
gelesen. 

Rudi Kost verfügte recht- 
zeitig über einen Schnei- 
der PC, um mit seinem 
Buch schnell auf dem 
Markt zu erscheinen. 
Daran liegt es wohl, daß 
das über 350 Seiten um- 
fassende Werk nicht den 
Eindruck macht, als sei 
es „mit der heißen Na- 
del‘ gedruckt. Zum an- 
deren verliert der Autor 
nie seinen potientiellen 
Kunden — den Anfän- 
ger — aus den Augen. 
Das heißt, das Buch ist 
durchgehend zum Ken- 
nenlernen und Anwen- 
den des PCs gedacht, 
nicht etwa für den 
„Freak“, der noch etwas 
dazulernen will. 

Dies macht sich schon in 
der Untergliederung be- 
merkbar. Die Einteilung 
in die Rubriken Hard- 
ware, MS-DOS & DOS 
PLUS, die Besonderhei- 
ten der beiden Betriebs- 
systeme und natürlich 
GEM führt den Benutzer 
langsam in seinen Rech- 
nerein. 

Unter der Überschrift 


„Hardware“ findet sich 
nur eine kurze Einleitung 
zu den Einzelteilen der 
PC-Einheit. In lockerer 
Form erhält der Leser 
überhaupt einmal eine 
Begriffserklärung dessen, 
was sich da auf seinem 
Schreibtisch tummelt. 
Zwar wird jeder wissen, 
was von diesen Dingen 


der Monitor ist, ganz ne- 
benbei geht Rudi Kost 
aber auch auf die Netz- 
teilproblematik (Fremd- 
monitore?) und das 
NVR-Programm zur 
Bildschirmeinstellung 
ein. 

Auch bei der relativ kur- 
zen Beschreibung der 
Tastatur wird nichts 
vermißt. Sämtliche com- 
puterspezifischen Tasten 
sind erklärt, so daß nach 
diesem Kapitel jeder 
etwas mit “‘Ctrl‘“ oder 
“PrtSC“ anfangen kann. 
Nach einigem notwendi- 
gen Grundwissen über 
Betriebssysteme geht es 
zur Sache. 

MS-DOS und DOS Plus 
werden gemeinsam ab- 
gehandelt, was sich beim 
Arbeiten ohnehin als 
vorteilhaft erweist, wer 
will schon etwas zwei- 
mal lesen. Bei der Reihen- 
folge der einzelnen Be- 
fehle bewies Rudi Kost 
eine glückliche Wahl. Der 
Abschnitt ist so struktu- 
riert, daß man durchge- 
hend die Befehle einüben 
oder abarbeiten kann. Es 


wird also nicht der Copy- 
Befehl besprochen, be- 
vor der Anfänger über- 
haupt in der Lage ist, 

das angesprochene Lauf- 
werk zu wechseln. In 
dieser Phase des Buches 


» wird auch viel für die 


Datensicherheit beim 
Anwender getan. Eine 
versehentliche Löschung 
von Daten, nur weil man 
einen Satz überlesen hat, 
scheint ausgeschlossen. 
Erst allmählich kommt 
man zu den komplizierten 
Eigenschaften des Be- 
triebssystemes und kann 
somit immer auf dem bis- 
her Erlernten aufbauen. 
Mit dem Kapitel über 
Batchdateien kann sich 
der Käufer des Buches 
glücklich schätzen. Nicht 
nur die Programmie- 
rung, bzw. Erstellung, die- 
ser „Jobs“ ist erklärt, 
sondern es finden sich 
auch einige kleine Bei- 
spiele, die direkt einge- 
tippt werden können. 
Selbstverständlich fehlt 
zu diesem Zweck auch 
nicht der Querverweis 

zu den Editoren RPED 
und EDLIN. 

Spätestens an dieser 
Stelle ist der Leser weit 
genug, um nach dem 
Unterschied zwischen den 
beiden Betriebssystemen 
zu fragen. Die Antwort 
wird auf rund 50 Seiten 
gegeben. Sollte eines der 
beiden Systeme einen be- 
sonderen Vorteil bieten, 
so geht Rudi Kost dar- 
auf ein. 

Als Beispiele seien die 
User-Nummern von DOS 
Plus oder Edlin von 
MS-DOS herausgegriffen. 
Der Benutzeroberfläche 
GEM ist die zweite Hälf- 
te des Buches gewidmet. 
Vom Funktionsprinzip 
bis zur konkreten Be- 
dienungshilfe wird das 
Handbuch in weitaus 
lesbarer Form ersetzt. 
Der Autor hat erkannt, 
daß Einsteiger das Desk- 
top den Betriebssystemen 
vorziehen werden. 
Deshalb bespricht er alle 
Anwendungsmöglichkei- 
ten ausführlich und zu- 
meist mit einem Beispiel. 
Nach dem Studium der 
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Seiten, die GEM Paint 
gewidmet sind, dürfte 
sich sogar ein weiteres 
Handbuch erübrigen. 
Schließlich läßt sich mit 
dem Programm auch ar- 
beiten und was der Er- 
klärung bedurfte, findet 
sich in diesem Buch. 

Ein paar Seiten weiter 
gibt es jedoch Anlaß 

zur Kritik. Wie man die 
Programme GEM Write, 
GEM Draw und andere 
in sein System einbindet, 
erfährt der Leser späte- 
stens, wenn er sie kauft. 
Rudi Kost selbst weist 

ja auf die Installations- 
programme dieser Soft- 
ware hin. Auch geriet 

die Beschreibung der 
GEM-Palette ein wenig 
zur Werbung, da hilft es 
nichts, wenn zum Aus- 
gleich ein wenig aus 

der MS-DOS-Welt berich- 
tet wurde. Etwas über 
30 Seiten wurden da 
verschenkt und die 
wünscht man sich im 
Kapitel über Basic drin- 
gend. Denkt man dar- 
an, daß zum Erscheinen 
dieses Buches kein Hand- 
buch zu bekommen war, 
dann weiß man, welche 
Marktlücke hier übersehen 
wurde. Kurz und bündig: 
GEMs BASIC wurde nicht 
ausreichend abgehandelt. 
Mit der knappen Lei- 
stungsbeschreibung war 
es nicht getan. 


FAZIT 


„Der Schneider PC“ vom 
Markt & Technik Verlag 
ist — trotz seiner zuletzt 
beschriebenen Mängel — 
ein durchweg zu empfeh- 
lendes Buch. Allerdings 
sollte man sich darüber 
im klaren sein, daß es 

sich nur an Anfänger rich- 
tet. Der lockere, zuwei- 
len unterhaltende Schreib- 
stil wird von fortgeschrit- 
tenen Anwendern gerne 
als „Zeilenschinderei“ 
empfunden. Bei Rudi 
Kosts Buch allerdings ist 
er genau am richtigen 
Platz. Denkbar, daß man 
dieses Buch auch abends 
noch im Bett weiterliest. 
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EDLIN- DIE NUMMER IST 
WICHTIG- ABER DANN 
GEHT ES RUND 


In der letzten Folge ging es um den Editor RPED, der dem Schneider- 
Besitzer durch GEM, aber nicht nur unter GEM, zur Verfügung 
steht. Mit Microsofts DOS-Entwicklung hat er allerdings nichts zu tun. 
Ich erwähnte ihn nur, weil er so schön einfach zu bedienen ist und damit 
zum idealen Werkzeug beim Erstellen von Batchdateien wird. 
Wesentlich leistungsfähiger und damit auch etwas komplizierter in der 
Bedienung ist der DOS-,‚Oldie’”’ EDLIN, um den es heute geht. Am Ende 
dieser Folge werden Sie sicher ahnen, was man mit diesem Editor alles 
machen kann. Solange Sie jedoch nur kleinere Dateien bearbeiten, 
bleibt Ihnen natürlich die Qual der Wahl. Gerade deswegen sollten Sie 
jedoch EDLIN kennenlernen. 


Die Verarbeitungskapazität des 
Editors hat erst bei über 65000 Zei- 
len seine Grenze erreicht und dabei 
darf jede dieser Zeilen noch 253 Zei- 
chen lang sein. An dieses sture Zei- 
lenzählen müssen Sie sich allerdings 
erst gewöhnen, denn man arbeitet 
„zeilenorientiert‘. Jede Textzeile 
wird mit einer Nummer geführt. Um 
die Vergabe dieser Zahl und um ei- 
ne eventuelle Neuordnung kümmert 
sich zwar der Editor, den Anwen- 
der kann es allerdings ganz schön 
durcheinanderbringen. Doch davon 
später. 


ERST MAL DIE VORSPEISE... 


Bevor ich Ihnen die exakte Syntax 
beschreibe, möchte ich mit den Lei- 
stungen erst einmal etwas Appetit 
machen. Neben der Aufnahme von 
enorm viel Text bietet EDLIN 

noch das Verschieben und Kopie- 
ren einer oder mehrerer Zeilen. Er 
sucht nach Textstellen in der voll- 
ständigen Datei oder in einem ge- 
wünschten Zeilenbereich. Er verbin- 
det mehrere Dateien miteinander, 
und wenn der Text beim Auflisten 
zu lang ist, macht er bei jeder Bild- 
schirmseite eine höfliche Pause, bis 
Sie zu Ende gelesen haben. Als Ge- 
genleistung erwartet der Editor nur, 
daß Sie seine kleinliche Zeilennume- 
rierung bei der Befehlseingabe re- 
spektieren. 

Starten Sie also mit A>EDLIN 
Datei. Dabei wird gleich die Disket- 
te abgesucht, ob ein File ““Datei“ 
existiert. Falls nicht, entscheidet 
Edlin, daß Sie diese Datei erst erstel- 
len wollen, teilt Ihnen mit dem Satz 
“Neue Datei‘ seine Überlegung mit 


schrieben wird. Die eigentlichen 
Textzeilen sind eingerückt und tra- 
gen natürlich eine Ziffer vorweg. 
Aber auch wenn das File namens 
“Datei‘ vorhanden ist, bleibt der 
Bildschirm kärglich. Mit “Ende der 
Eingabedatei‘ wird Ihnen klarge- 
macht, daß sich nunmehr Text im 
Speicher befindet und selbstverständ- 
lich harrt Edlin mit einem Stern Ih- 
ren Befehlen. Um die Datei zu le- 
sen, müssen Sie L (für “List‘“) einge- 
ben. Prinzipiell — und deshalb sei 

es hier auch nur anfangs beschrie- 
ben — müssen Sie die Befehle mit 
Return abschicken. Andererseits ist 


und wartet auf Ihre Eingabe. Sie wer- 


den feststellen, daß aus dem Prompt- 
pfeil ein Promptstern geworden ist. 
Eine neue Datei beginnen Sie ganz 
einfach mit dem Befehl i (mit Re- 
turn abschließen). Einmal im Einga- 
bemodus, müssen Sie die Ctrl- und 
Z-Taste gleichzeitig betätigen, um 
wieder in den Editiermodus zu ge- 
langen. Letzteren erkennen Sie dar- 
an, daß nur der Multiplikationsstern 
zu sehen ist (keine Zeilenzahl) und 
direkt am linken Bildschirmrand ge- 
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es unerheblich, ob Sie Groß- oder 
Kleinbuchstaben benutzen. 

Wenn Sie also L eingegeben haben, 
dann stellen Sie bei größeren Da- 
teien fest, daß der Text viel zu 
schnell über den Bildschirm scrollt. 
Die einfachste Lösung ist der Be- 
fehl P (für ““Page“‘) und nunmehr 
wird Seite für Seite durchgeblättert. 
Geben Sie ausschließlich L oder P 
ein, so betrifft dies den gesamten 
Text. Unter Umständen ist dieser 
Textbereich aber zuviel des Guten, 


also fangen wir an, die Zeilennum- 
mern ins Spiel zu bringen. x,yL 
listet die Zeilen von x bis y auf und 
analog dazu tut x,yP das Gleiche, 
nur eben seitenweise. Geben Sie 
einfach eine Zahl ohne weiteren Be- 
fehl ein, dann wird Ihnen diese Zei- 
le (falls vorhanden) zum Editieren 
vorgelegt. Damit Sie dies auch ja 
zur Kenntnis nehmen, wird sie 
nicht nur mit einem Stern versehen, 
sondern die alte Zeile wird zusätz- 
lich aufgezeigt. Sie können dann 
auch mit Hilfe der Funktionstasten 
editieren, wie ich sie am Ende die- 
ser Folge beschrieben habe. 

Wenn Sie dagegen eine Zeile einfü- 
gen wollen, dann sollten Sie vorsich- 
tig werden. Nach xl (I für “Insert‘“) 
rückt zwar die Zeile x nach hinten, 
um Platz für eine Neue zu machen, 
doch anschließend numeriert 
EDLIN in bester Ordnungsmanie 
alle Zeilen neu durch. Es nutzt also 
wenig, wenn Sie ein besonderes Ge- 
dächtnis für Zahlen haben. Schau- 
en Sie erst nach, bevor Sie woan- 
ders etwas einfügen oder gar lö- 
schen wollen. Löschen können Sie 
eine Zeile übrigens mit xD (‘“De- 
lete‘“‘). 

x,yD dagegen würde die Zeilen x 
bis y löschen, soviel ist schon klar. 
Von der Textverarbeitung her kennt 
man ja die Blockverschiebungen. 
Während man diese bei RPED ver- 
mißt, kann EDLIN damit aufwar- 
ten. Geben Sie einfach x,y,z,aC 
ein, dann werden die Zeilen x bis 

y vor die Zeile z kopiert. Achten 
Sie aber darauf, daß es sich um ei- 
ne Kopie (C für “copy‘) handelt, 
die Originalzeilen also auch noch da 
sind. Der Parameter a gibt an, wie 
oft. diese Zeilen kopiert werden 
sollen. 


... DER HAUPTGANG WIRD 
SCHON RAFFINIERTER... 


Man kann natürlich auch Zeilen ver- 
schieben, ohne sie dabei zu verviel- 
fältigen. Abgeleitet von “Move“ 
(bewegen), so gibt man einfach nur 
M hinter die entsprechenden Para- 
meter ein. Also verlegt x,y,zM den 
Zeilenbereich von x bis y vor die 
Zeile z. Wollen Sie C und M - Copy 
und Move — nur für eine Zeile an- 
wenden, dann geben Sie nur eine 
Zeilenzahl an, also x,yM (bringt 
Zeile x vor Zeile y). 

Je mehr man mit den letzten Optio- 
nen umgeht, um so mehr wird 
EDLIN neu numerieren. Schon bald 
hat man vergessen, in welcher Zeile 
was steht. Aber, keine Sorge, der 
Editor hilft Ihnen gerne beim Su- 
chen. Wenn Sie es wünschen, ersetzt 
er auch gleich die Textstelle. 
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Geben Sie x,yS Text ein und im an- 
gegebenen Zeilenbereich wird 

nach „Text“ gesucht. Wenn dieses 
Wort mehrmals vorkommen könn- 
te, dann fügen Sie in die Befehlsse- 
quenz ein Fragezeichen ein, also 
x,y?S Text. Sollte EDLIN nun das 
zu suchende Wort gefunden haben, 
dann fragt er nach, ob es sich um 
die gewünschte Stelle handelt. An- 
dernfalls wird weitergesucht. Beson- 
ders praktisch ist diese Methode, 
wenn Sie auch gleichzeitig erset- 
zen wollen. Das S (für Search) wird 
dann im Befehl durch R (für Re- 
place) ausgetauscht und natürlich 
sollte das Ersatzwort geschrieben 
werden. Somit lautet der Befehl 
x,y?R textl (Control + Z) Text 2. 
Die Ctrl- und Z-Taste müssen Sie 
gleichzeitig drücken (nicht etwa in 
Klammern eingeben), um den alten 
Text vom neuen zu trennen. Mit 
dem Rplace-Befehl lassen sich auch 
recht komfortabel bestimmte Text- 


... UND ERST DIE NACHSPEISE! 


stellen löschen, indem man den 
neuen Text einfach wegläßt. 
Hierdurch wird die gesuchte Stelle 
eben durch “Nichts‘ ersetzt. Nur 
überlisten können Sie den Editor 
nicht. Stieß eine Zeile bereits an 


die 253 Zeichen-Grenze und Sie wol- 


len mit einem längeren Wort erset- 
zen, dann führt dies zu einer Fehler- 
meldung. Aber in der Praxis wird 

so etwas kaum vorkommen, Sie 
müssen es schon mit Gewalt probie- 
ren. Ist es mal passiert, dann bleibt 
Ihnen nichts anderes übrig, als die 
Zeile zu trennen, um einfügen zu 
können. Auch beim Ersatzbefehl 
können Sie, wie beim Suchbefehl, 
das Fragezeichen weglassen. EDLIN 
ändert dann radikal alle gesuchten 
Textstellen. 

Die ständige Neunumerierung läßt 
dem Anwender einen Text schnell 
zu lang werden. In diesem Fall soll- 
te man, um den Überblick zu be- 
halten, einen Teil davon auf Disket- 
te sichern. Benutzen Sie dazu den 
Befehl x,yW (Write). Der im Arbeits- 
speicher verbleibende Teil wird 
(wieder mal) neu durchnumeriert. 
Sie merken, welche Mühe sich 
EDLIN gibt, um die Zahlenakroba- 
ten unter den Anwendern völlig zu 
verwirren. 

Zurück zum Write-Befehl. Die Ver- 
mutung ist ja recht logisch, aber 

mit dieser Option läßt sich nicht der 
gesamte Text speichern, indem man 
die Angabe des Zeilenbereiches weg- 
läßt. EDLIN behält auf jeden Fall 
etwa ein Viertel des Textes im Spei- 
cher. Aber es gibt zu Write einen 
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praktischen Gegenbefehl, die Merge- 
Funktion, mit der Sie eine auf Dis- 
kette liegende Datei an eine Datei 
im Arbeitsspeicher binden können. 
Der Befehl xA liest x Zeilen eines 
Textes und fügt sie an den aktuellen 
Text im Speicher an. 

Aber auch wenn man es sich leicht 
merken kann, A steht nicht für 

“ Anfügen“, sondern für “Add“, wo- 
bei die Bedeutung allerdings gleich 
bleibt. Sollten Sie bei der Eingabe 
auf die Zeilenanzahl verzichten, so 
wird — sofern möglich — die gesam- 
te Datei eingelesen. Die Einschrän- 
kung “sofern möglich“ ist leider 
nicht unberechtigt. Die 512 K des 
Schneider PCs sind EDLIN nämlich 
egal. Er willnur 64 K nutzen und 
davon belegt er bestenfalls 48 K 
mit Text. Allerdings ist dies ausrei- 
chend und man wird es wohl kaum 
als Nachteil auslegen können. 
Trotzdem sollte es einmal gesagt 
werden. Wenn man Teilbereiche 
von Texten abspeichern oder einle- 
sen kann, dann will man diese Ein- 
leseroutine auch zum Einfügen 
nutzen. Kein Problem mit dem 
MSDOS „Oldie“. Der Befehl xT 
Datei liest “Datei‘‘ von der Disket- 
te und legt ihn vor die Zeile x. Und 
wenn Sie x, also die Zeilennummer, 
nicht angeben, kommt der Text 
vor die aktuelle Zeile. 

Um schließlich irgendwann die Ar- 
beit mit EDLIN zu beenden, ha- 
ben Sie zwei Möglichkeiten. 

E (für “End“) ist dabei die Spei- 
cherroutine. Die gesamte(!), im 
Speicher befindliche Datei wird 
abgespeichert. Den Namen hierzu 
haben Sie ja bereits vergeben, als 
Sie EDLIN aufgerufen haben. 
Nach der Speicherung meldet sich 
das Betriebssystem MSDOS. Gefähr- 
licher ist der Schlußbefehl Q 
(“Quit‘), aber Sie werden gewarnt. 
Der Text wird bei Q nicht abge- 
speichert und deshalb fragt EDLIN 
nach, ob Sie sicher sind. Antwor- 
ten Sie dann noch mit Ja, ist Ihre 
Datei allerdings unwiederbringlich 
verloren. 


FUNKTIONSTASTEN UNTER 
DOS 


Damit sind wir auch schon wieder 
beim eigentlichen Betriebssystem, 
dem MSDOS. 

In vielen Programmen haben Sie 
sicher schon die Funktionstasten 
fl bis flO schätzen gelernt. Sie 
sind mit häufig benötigten Befehls- 
eingaben belegt und erleichtern so 
die Arbeit. Auch unter MSDOS 
haben die Tasten eine besondere 
Bedeutung, die Zeit und Tippar- 
beit spart, wenngleich wir sie hier 


im Zusammenhang mit EDLIN er- 
wähnen. Sicher haben Sie schon ge- 
merkt, daß ein Schreibfehler, bei- 
spielsweise in einem Pfadnamen, 
nur schwer zu korrigieren ist. Die 
Cursortasten reagieren nicht wie 
gewohnt und deshalb haben sich _ 
viele angewöhnt, die Befehlszeile 
von hinten bis zum Fehler mit der 
DEL-Taste zu löschen. Die Tasten 
fl bis f6 können, richtig kombi- 
niert, zum schnellen Editieren be- 
nutzt werden. Das Betriebssystem 
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vollständig, dann können Sie ihn 
ergänzen, etwa um ein weiteres 
Subdirectory zu eröffnen. Sehr 
praktisch ist diese Funktionstaste, 
wenn Sie wieder mal vergessen ha- 
ben, die Disketten zu beschriften 
und nun verzweifelt nach einem 
bestimmten File suchen. Den Be- 
fehl dir/w können Sie dann bei 
jeder neuen Diskette mit f3 ab- 
rufen. 

Das Gegenstück zu f2 (kopieren 
bis Zeichen) ist f4, mit der bis zu 


ist. Im Editor EDLIN haben Sie 
auch gesehen, daß mit f6 der Edi- 
tiermodus verlassen werden muß. 
Der Umgang mit den Funktions- 
tasten ist leichter eingeübt als be- 
schrieben. Sie sollten von dieser 
Möglichkeit Gebrauch machen. 
Sie sollten, um den Umgang mit 
EDLIN und den Funktionstasten 
ein wenig zu üben, ein paar kleine 
Batchdateien entwerfen. Ich will 
dabei nichts anders, als Ihnen die 
Idee und das Grundgerüst dazu lie- 


behält im Prinzip jede mit Return 
abgeschlossene Zeile als Speicher- 
zeile im “Gedächtnis‘, bis eben 


einem angegebenen Buchstaben ge- 
löscht wird. Hiervon ist zu aller- 
erst einmal die Speicherzeile be- 


fern. So sollten Sie zuerst einmal 
immer den Bildschirm löschen und 
dann bekanntgeben, was diese 
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STEUERZEICHEN 
— WARUM DENN? 


Hin und wieder erreicht 
die Redaktion ein 
Listing, das nur so von 
Bildschirm-Steuerzei- 
chen wimmelt. Als 
Folge spielt unser 
Drucker verrückt und 


ein so ausgedrucktes 
Listing hätte für nie- 
manden mehr recht 
Sinn. Dem geistigen Va- 
ter dieser Programme 
muß es doch genauso 
gehen, denken wir uns 
dabei. Zwar gibt es 
Hilfsprogramme, die 
einem das Lesen (und 
Drucken) derartiger 
Listings erlauben, 
aber wer ist schon so 
fleißig, mit zwei Pro- 
grammen zu arbeiten, 
wenn er nur für eines 
ein Listing will? 

Es geht ja auch an- 
ders! Wie Sie wissen, 
erreicht man die Steu- 


erzeichen über eine 
Control-Tastenkombi- 
nation. So ergibt 

Ctrl + X zum Beispiel 
das Signal zur inver- 
sen Darstellung vor 
einem Text. Mit der 
gleichen Sequenz wird 
nach dem String auch 
wieder auf “normal“ 
geschaltet. Das Sym- 
bol, ein X mit oberen 


und unteren Querlinien, 


das dabei auf dem Bild- 
schirn entsteht (und 
eigentlich auch im 
Listing erscheinen soll- 
te),ist der eigentliche 
Störfaktor. Warum 

soll man die Steuerzei- 


chen nicht als Charak- 
terzuweisung eintip- 
pen? So würde unser 
Beispiel lauten: 
PRINT CHR$(24); 
“NAME“;CHR$(24) 
Damit kommt jeder 
Drucker klar. Auch der 
Programmierer hat es 
leichter, seine Pro- 
gramme nachzuprüfen, 
wenn er, statt nach 
einem Symbol, nach 
einer logischen Dezi- 
malzahl suchen muß. 
Wo man die findet? 
Im Handbuch des 

CPC 464 im Anhang 
III/Seite 1 und im 
Handbuch zum CPC 


eine neue abgeschickt wurde; die 
Zeile, die Sie gerade schreiben, 
gilt als aktuelle Befehlszeile. Aus 
der Speicherzeile steht damit im- 

. mer ein Befehl zur Verfügung, im 
einfachsten Fall, um ihn noch ein- 
mal zu verwenden (f3), doch begin- 
nen wir der Reihe nach. Mit fl 
können Sie die vorangegangene 
Befehlssequenz zeichenweise in 
die aktuelle Zeile kopieren. Ein 
Tastendruck entspricht dabei ei- 
nem Zeichen, aber es geht ja auch 
schnell, wenn Sie den Finger auf 
der Taste lassen. 

Mit f2 kopieren Sie alle Zeichen 
in die aktuelle Befehlszeile, jedoch 
nur bis zu einem anzugebenden 
Buchstaben. Wäre also der erste 
Befehl (der zu einer Fehlermeldung 
führte) “cd \texte \msdos“, so er- 
gäben die Taste f2 und anschlie- 


ßend M die neue Zeile “cd \texte\“. 


Den Rest können Sie dann ergän- 
zen. 

Wie schon erwähnt, können Sie 
mit f3 den kompletten Befehlstext 
aufrufen lassen. War er korrekt, 
dann müssen Sie ihn nur noch mit 
Return abschicken, war er nicht 


troffen. Sehen können Sie davon 
allerdings nichts, da DOS logi- 
scherweise von Ihnen erwartet, daß 
Sie diesen Anfang erst einmal neu 
schreiben. Dann können Sie durch 
fl oder f3 den Rest der Speicher- 
zeile anbinden. Ein Beispiel hier- 
zu: Sie schauen sich ein Unterver-' 
zeichnis an, indem Sie den Befehl 
“dir\text\script \ msdos“ 
eingeben. Nachdem Sie die richtige 
Datei gefunden haben, geben Sie 
ein “copy“, drücken f2 und an- 
schließend “r“. Mit f3 wird der 
Rest der Speicherzeile übernom- 
men und der Befehl lautet nun: 
“copy \text\script \msdos“ 
Sie müssen nur noch die Datei ein- 
tragen und den Pfadnamen für die 
Kopie, das kann DOS ja nicht für 
Sie wissen. Die Eingabezeile kön- 
nen Sie durch f5 auch zur Spei- 
cherzeile erklären, ohne sie erst 
einmal durch Return abgeschickt 
zu haben. Hierdurch ist sie zu 
weiteren Korrekturen bereit. f6 ist 
als letzte Funktionstaste belegt 
und gibt bei Betätigung ein 
Control+Z Zeichen aus, was allge- 
mein ein Zeichen für Dateiende 
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Stapeljob überhaupt anrichten. 
Zusätzlich können Sie ja Ihren Na- 
men dazuschreiben, damit Sie wis- 
sen, daß es sich nicht mehr um die 
Originalroutine handelt. Dies würde 
dann folgendermaßen ausschauen: 


CLS 

ECHO FKRRRRRRRERRRRRERRERR RR HR 
ECHO * Ihr Name * 
Formathelfer = 
KERRRRERRRRRRRRRR RR RR 


A:O_FORMATB: 


Mit diesem kleinen Programm soll 
nur sichergestellt werden, daß Sie 
nur im Laufwerk B: formatieren 
können (Festplattenbesitzer A:) 
Mehr wird nicht erreicht. Allerdings 
offenbart sich hier auch ein kleiner 
Trick. Um die Batchdatei unter dem 
Namen FORMAT.BAT abspeichern 
zu können, wurde vorher das DOS 
Utility umgenannt inO FORMAT 
.EXE (Rename format.exe o_for 
mat.exe). 

Wie gesagt, soll Ihnen dies nur die 
Übung mit EDLIN vereinfachen. 
Ich bin sicher, Sie werden das Pro- 
gramm mit weiteren Routinen und 
eigenen Ideen ausbauen können. 


GLOSSE. 


VERGESSEN 
SIE ALLES 
ÜBER BASIC! 


Haben Sie schon einmal Ihrem Stammtisch- 
bruder in einer strukturierten Rede, wobei Sie sich um 
modulare Prozessuren bemühten, jene Algorithmen 
formuliert, die in Ihnen bei theoretischer Betrachtung 
von Marylin Monroe vorgehen? Haben Sie diese 
Frage überhaupt verstanden, oder haben Sie wenigstens 

verstanden, daß es eine Frage ist? 


VON DEN BARRIKADEN einfache Befehle, die der 


BERICHTET: F.W. 


Egal, es war nur eine Ein- 
leitung, die Ihnen klar 
machen sollte, daß die 
Sprache, in der wir mit 
- dem Computer kommu- 
nizieren (schwätze), nur 
selten die gleiche ist, in 
der wir mit der Ehefrau 
oder der Freundin oder 
allen beiden reden. 
Wenn doch, dann haben 
Sie Probleme, die sich 
in dieser Zeitschrift 
nicht lösen lassen. 
Sprachlich gesehen ist 
der Computer ein Nean- 
dertaler (der eine mehr, 
der andere weniger), 
der trotz seiner Be- 
schränktheit geradezu 
kleinlich auf einer Syn- 
tax besteht. Nur selten 
gelingt es dem User, 
sich diesem Niveau an- 
zupassen. Kein Wunder, 
daß jeder die ideale 
FIOE UN TIELDIACHE 
sucht. Dagegen ist es ein 
Wunder, daß ich sie ge- 
funden habe. 
Vergessen Sie alles, was 
Sie über BASIC, LOGO, 
COBOL, FORTH und 
C wußten. Fertig, ja? 
Hat ja nicht gerade lang 
gedauert. Nun gibt es 
SIMPEL, die Revolu- 
tion auf dem Interpreter- 
markt, eine Weiterent- 
wicklung des TURBO- 
PASQUAL von DATA- 
KLECKER. 
Bisher reagierten alle 
Computersprachen auf 


englischen Sprache ent- 
liehen wurden. Diese Leih: 
gaben können wir jetzt 
getrost zurückgeben. Je- 
denfalls zum Teil, denn 
der Sprachschatz von 
SIMPEL ist eine inter- 
nationale Mischung aus 
Serbokroatisch, Spa- 
nisch, Deutsch, Latein 
und Russisch. Damit sind 
nicht mehr nur die BRD- 
Programmierer (User) 

die Gelackmeierten(Co- 
lourmeierten) sondern 
alle. Ein kleines Stück 
Gerechtigkeit am Soft- 
warekuchen. 
Informatikfachleute aller 
Nationalitäten arbeiteten 
verbissen (Tollwut!) an 
den bekannten Proble- 
men, einige auch an den 
unbekannte. Die besten 
Lösungen dieser Genies 
wurden schließlich zu- 
sammengefaßt und ver- 
kauft. Allerdings an 
DIGITAL RESEARCH, 
weil eben diese zahlen 
konnte, den Rest bekam 
DATA KLECKER gratis. 
Eine Vorabversion konn- 
te ich testen, es fand 

sich kein anderer. 

Zwar könnte ich Ihnen 
jetzt hier all diese wunder- 
baren Befehle beschrei- 
ben, aber könnten Sie die- 
se auch lesen? Da will 
ich mich doch lieber, be- 
schränkt wie ich bin, 

auf eine Auswahl be- 
schränken. 

Natürlich werden die kom- 
fortablen Interrupt-Ei- 


genschaften des CPC 
unterstützt. Außer dem 
Zurücksetzen und dem 
Neustart eines Pro- 
gramms steht Ihnen für 
eine kleine Pause auch 
der SIESTA-Befehl zur 
Verfügung. Die Pro- 
grammausführung wird 
durch SIESTA a,b,x ge- 
stoppt, wobei die Para- 
meter a und b den Be- 
ginn und das Ende der 
Unterbrechung ange- 
ben und x den Wert O 
oder 1 enthalten muß, 
ansonsten aber nutzlos 


ist. 

SIESTA 22,9,30,0 schal- 
tet den CPC also von 

22 Uhr abends bis 9.30 
Uhr morgends aus. 
Break in... zeigte bis- 
her den Programmab- 
bruch durch einen Feh- 
ler auf. Aber daß das 
Programm unterbrochen 
wurde, das sah man 
doch selbst! 

SIMPLE meldet sich da- 
gegen mit ““Njet‘. Klarer 
und deutlicher kann man 
nicht mehr sein, zumal 
die Fehlermeldung nach 
einer kurzen Bedenkzeit 
den Computer zurück- 
setzt. Aber reden wir 
nicht nur von Fehlern. 
Wir kennen alle das 
IMPROPER ARGU- 
MENT mit der Unter- 
zeile “Das hast du aber 
fein gemacht“. Je öfter 
diese Meldung erscheint, 
desto weiter sind Sie 

mit Ihren Programmier- 
kenntnissen. 
TSCHERPLTZKY x$(y) 
ersetzt und erweitert den 
bisherigen DIM-Befehl. 
Der Speicherplatz für 

die Variable wird nicht 
nur zur Verfügung ge- 
stellt und reserviert, son- 
dern auch gefegt, ge- 
wachst und gebohnert, 
so daß der Speicher des 
CPC immer einen ge- 
pflegten Eindruck macht, 


wenn mal Besuch kommt. 


Den Datenfluß in eine 
bestimmte Richtung, zu 
leiten (Window, Drucker, 
Diskette), erfolgt beim 
SCHNEIDER mit dem 
unpersönlichen Befehl 
PRINT #n. Aus dem Be- 
fehl wurde eine höfliche 
Bitte und so arbeitet 
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SIMPEL wesentlich ele- 
ganter mit der Zeile 
PLEASE PRINT 
DINGSBUMS. Dingsbums 
ist die Variable für das 
Peripheriegerät, das je- 
doch erst bei der Pro- 
grammausführung ange- 
geben werden muß. 
Taucht im Programm die- 
se Variable auf, so er- 
scheint auf dem Monitor 
die Frage “QUO VADIS“. 
Nun ist nur noch Disket- 
te, Drucker oder Bild- 
schirm einzugeben und 
die Daten werden ent- 
sprechend weitergeleitet. 
Dem allzu jungen Team 
(was sollen die Windeln 
im Manual?) ist es ge- 
lungen, den GOTO-Be- 
fehl durch einige Para- 
meter zu verbessern. 
GOTO AND COME 
BACK ersetzt den altbe- 
kannten und schon lang- 
weilig gewordenen 
GOSUB-Befehl. In diesem 
Fall ersetzt THEY 
NEVER COME BACK 
die Fehlermeldung LINE 
DOES NOT EXIST. 
GOTO IN ETWA gibt 
man ein, wenn man die 
genaue Zeilennummer 
vergessen hat. Der 
Interpreter springt dann 
diesen ETWA-Bereich 

an und schaut sich da mal 
um. Findet er was Inter- 
essantes, wird der entspre- 
chende Zeilenbereich auf- 
gelistet. GO SLOW ent- 
spricht der RUN-Order, 
denn beim DATA- 
KLECKER-Interpreter 

ist von Rennen nicht 
mehr die Rede. Allerdings 
kann man die Programm- 
ausführung durch ein mar- 
kiges HURRY UP 
beschleunigen. 

Der Interpreter ist im 
Versand bei SOFT & 
MACKE zu den üblichen 
Wucherpreisen getreu 

des Firmenmottos 

„Kauft ja doch keiner“, 
erhältlich. 

Geliefert wird er mit ei- 
nem ausführlichen Hand- 
tuch (2 qm), warum 

weiß keiner. Vielleicht 
meinten die Herren aber 
auch Handbuch, denn der 
beigefügte Notizzettel 
darf wohl nicht als 
Manuäl gelten. 
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BUDGET-MANAGER 


Wozu noch Ausgabenbücher führen? Schneider aktiv 

stellt Ihnen „Budget Manager“ vor, das elektronische 

Ausgabenbuch mit Komfort. Einige wichtige Merk- 

male des Programmes in Stichworten: 

— Dateien werden jeweils für einen Monat geführt 

— Grafische Darstellungen mit Vergleichsmöglich- 
keiten 

— Bequeme Menüsteuerung 

— Dauernde Anzeige der angemeldeten Dateien und 
des Datums. 


Die Hauptauswahl 


Sie erscheint in der oberen Bildschirmzeile und ent- 
hält folgende Punkte: 

— Disk Manager 

— Budget Manager 

— Ende 

Das jeweils invers dargestellte Feld gilt als angewählt, 
wenn Sie die COPY-Taste drücken. Mit “Pfeil links“ 
und “Pfeil rechts‘ kann der gewünschte Programm- 
teil ausgesucht werden. 


Der Disk Manager 


Dieser Programmteil ist für die Diskettenverwaltung 
zuständig: 


A.Gruppen vorbereiten 
Hier können Sie bis zu 40 Sachgruppen, denen Sie 
Ihre Einnahmen und Ausgaben zuordnen wollen, ein- 


Disk Nanger EFERLEREFN Graphics Hanager Ende 


Et 


sannenuennennllehh h 
BERBZEBEBELLESEBBEEBE 


geben. Das könnten z.B. sein: Einkünfte, Steuern, 
Versicherungen, Behördenausgaben, Kfz-Kosten, 
Hobbies, Kleidung und anderes mehr. Jede Bezeich- 
nung darf höchstens 20 Zeichen lang sein. Der Rah- 
men auf dem Bildschirm dient dabei als Eingabehilfe. 
Die Sachgruppen werden, nachdem Sie eine Eingabe 
nur mit ENTER quittiert haben oder das letzte Feld 
erreicht ist, abgespeichert. 


B. Datum setzen 

Geben Sie die drei Zahlen für das aktuelle Datum je- 
weils zweistellig ein; nach jeder Zahl muß Enter betä- 
tigt werden. Wichtig: Von diesem Datum hängt die 


aktuelle Dabei ab. Am 1.10.87 ist beispielsweise auto- 
matisch die Datei für Oktober angemeldet. Wollen 

Sie noch Nachträge für September machen, geben 
Sie am besten 20.9.86 ein. . 


C. Disk vorbereiten 

Mit diesem Menüpunkt geben Sie einer neuen Disket- 
te den Namen (max. 20 Zeichen, z.B. 1986/87). Die 
Sachgruppen können auf Wunsch von einer früher 
angelegten Diskette kopiert werden. 


D.Katalog zeigen 
Zeigt Ihnen das Inhaltsverzeichnis einer Diskette an. 


E. Files umbenennen 

Dieser Punkt muß immer dann gewählt werden, wenn 
Sie mit einer neuen Datendiskette, die jedoch bereits 
mit Punkt C vorbereitet wurde und evtl. auch bereits 
Daten enthält, die Arbeit beginnen. Bei einer neu an- 
gelegten Diskette müssen Sie darauf achten, daß sie 
vorbereitet wurde, die Sachgruppen eingetragen sind 
und bereits ein Datum vermerkt wurde. 


H. Rückkehr 
Nach dem Abschluß der Punkte A-G können Sie 
wieder im Disk Manager wählen. 


Der Budget Manager 


Dieser Programmteil — die Hauptsache des ganzen 
Listings — dient dazu, neue Einnahmen und/oder Aus- 
gaben in die aktuelle Datei (die, wie oben geschildert, 
vom aktuellen Datum abhängt) aufzunehmen. 


A.Datei neu einrichten 

Bitte wählen Sie diesen Punkt nur dann, wenn Sie für 
den aktuellen Monat noch keine Eintragungen vorge- 
nommen haben. Beachten Sie auch, daß Sie die Frage, 
ob für dieses Jahr bereits Daten existieren, korrekt 
mit J oder N beantworten. Bei einer versehtnlichen 
Eingabe von N können bis zu 12 Monatsdateien ver- 
loren gehen! 


B. Datei anmelden 

Dieser Punkt ist, im Gegensatz zu A, immer dann zu 
wählen, wenn bereits eine Datei für den aktuellen Mo- 
nat existiert. Diese wird in den Speicher eingelesen. 


C. Datei bearbeiten 

Der Inhalt der aktuellen Datei, die mit A vorbereitet 
oder mit B angemeldet wurde, erscheint als Tabelle 
auf dem Bildschirm. Die Spalten beinhalten von links 
nach rechts: 

1. Gruppenname 

2. aktueller Betrag | 

3. Tag der letzten Änderung 

4. Soll bzw. Haben 

Zu sehen sind nur die ersten 20 Gruppen. Mit der 
Leertaste schalten Sie auf die jeweils andere Hälfte 
um. Zu beiden Seiten der Tabelle ist jeweils eine Mar- 
kierung zu sehen, die man mit “Pfeil nach unten“ und 
“Pfeil nach oben“ bewegen kann. Wenn Sie E drük- 
ken, können Sie zu dem gerade angezeigten Feld eine 
Einnahme addieren. Mit A wird dementsprechend ein 
ausgegebener Betrag subtrahiert. Der angezeigte Ge- 
samtbetrag und das Datum der letzten Änderung 
wechseln in der Anzeige. 


Bitte lesen Sie weiter auf Seite 31 
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| LISTING 


199 
119 '% 

128 '% BUDGET MANAGER 

139 °’%* 

1948 '%* Alwin Ertl 

159 ’%* 

169 '%* fuer Schneider aktiv 
179 °% 

189 '’%* CPC 464/664/6128 
199 '% 

219 ’% 

228. HRRRRBRRRRRHRRRRBRBRRRRRRHRHHHHRHE 

230 ' 

249 '+++ Hauptprogramm +++ 

239 ' 

268 OPENOUT"dummy":MEMORY HIMEM-1:CLOSEO 

UT:DIM gr#(49) ,‚grbetr (49) ‚,hbetr (49) ‚abet 
r(49) ,bt(49) ,ms(12) ‚menus(3,9) 

278 day=d:monat=d: jahr=d: dnames="":filen 

ame$="":hwahl=| 

268 INK 8,25: PAPER 8:BORDER 25: INK 1,1:P 

EN 1:MODE 2 

278 WINDOW #9,1,89,2,24:WINDOW #1,1,88,1 
‚L:WINDOW #2,1,09,25,25 

322 FOR i=1 TO 4:READ menußtQ,i):NEXT i: 

FOR i=1 TO 9:READ menus(1,i):NEXT i 

318 FOR i=1 TO S:READ menuß(2,i):NEXT 1: 

FOR i=i TO 7:READ menuß(3,i): NEXT 1:G0SU 
B 2930 

328 ’Hauptauswahl 

339 CLS#1:FOR i=l TO 4: IF i=shwahl THEN P 

RINT#1 ,CHR®(24) Jnenu®(&, I) ICHRSE(24)J ELS 

E PRINT#1 ,menuß(9,i)} 

348 PRINTHL," "I:NEXT i 

359 t8=INKEYS: IF t$="" THEN 358 

369 IF t#=CHRM(224) THEN 488 

378 IF t#=CHR®8(243) THEN hwahlshwahl+i:l 

F hwahl?4 THEN hwahl=i 

389 IF t#=CHR®(242) THEN hwahlshwahl-1:1 
F hwahl<i THEN hwahl=4 

379 G0T0 338 

4229 ON hwahl GOTO 419,920,1299,1978 

419 ’Disk Manager 

428 men=1:G05UB 2970 

438 ON wahl GOTO 449,530, 620,730,770,828 
‚860, 3208 

449 '(Gruppenbezeichnungen eingeben) 

458 PRINT"Bezeichnungen der Reihe nach e 
ingebenj Abbruch mit ENTER" 

468 breite=28:hoehe=22: y=2:x=18:G0SUB 24 
19: x=49:G0SUB 2410: ind=P 

479 ind=ind+l1:IF ind‘21 THEN LOCATE 11,2 
+ind ELSE LOCATE 39,2+ind-28 

488 LINE INPUT "",gr®(ind):IF gr#tind)<> 
"" AND ind<48 THEN 479 

479 SOUND 1,29,29,13:L0CATE 1,1:PRINT $&P 
ACEB(7P)J:LOCATE 1,15 INPUT"Alles richtig 
eingegeben"jjns: IF UPPERS(LEFTS(jn®#,1)) 
s"N" THEN CLS:G0TO 458 


| 
| 
A 
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B 2418: L0CATE 18, 11: PRINT"Gruppennamen w 
erden gespeichert - Bitte warten." 

s18 OPENOUT"items.dat":FOR i=i TO 49: PRI 
NT#9,greti):NEXT I:CLOSEOUT 

328 CLS:60T0 418 

339 ’(Datum setzen) 

548 PRINT:PRINT"Datum setzen - Tag/Monat 
/Jahr (2-stellig) jeweils mit ENTER absc 
hliessen!" 

359 x=36: y=1d:breite=8:hoehe=3:005UB 241 
8:LOCATE 39,11:PRINT". ." 

568 LOCATE 37,11: INPUT"",day:LOCATE 49,1 
1: INPUT"",monat:LOCATE 43,11: INPUT"",jah 


r 

578 LOCATE 37,11: PRINT USING"#HH"Iday:LOC 

ATE 48,11:PRINT USING"##"jmonat:LOCATE 4 

3, 11: PRINT USING"##"I jahr 

589 SOUND 1,29,28,13:L0OCATE 1,22: INPUT"D 

atum richtig"sjn®s:IF UPPERS(LEFTS(jn$, 1) 
J="N" THEN 569 

399 CLS:x=21:y=1Q:breite=38: hoehe=3: GOSU 

B 2419:L0CATE 22,11:PRINT"Datum wird ges 

peichert - Bitte warten." 

#28 OPENOUT"date. dat": PRINT#9, day: PRINT# 

9 ,monat: PRINT#9, jahr: CLOSEOUT 

619 CLS:G0SUB 2939:G0T0 419 

629 '(Disk vorbereiten) 

630 PRINT:PRINT CHRB(24) 5) "Diskette vorbe 

reiten" sCHRS(24) : PRINT:PRINT: PRINT"Bitte 
beachten: ":PRINT"Datum und evtl. Gruppe 

nbezeichnungen muessen extra gesetzt wer 

den!" 

648 LOCATE 1,9: PRINT SPACER (79) 3:LOCATE 
1,9:PRINT"Bitte Diskettennamen eingeben: 
"x=20:y=1d:breite=29:hoehe=3:G60SUB 2418 
:LOCATE 21,11:LINE INPUT"",dname®s 

659 LOCATE 1,9: PRINT SPACES(79)3:LOCATE 

1,9: INPUT"Diskettenname korrekt"Ijn®s: IF 

UPPERS(LEFT$S(jn$,1))="N" THEN 649 

668 LOCATE 1,13: INPUT"Bereits vorhandene 
Gruppenbezeichnungen uebernehmen"jjn#: 1 

F UPPERS(LEFT$(jn$,i1))="N" THEN 719 

679 CLS:x=14: yaldibreite=3: hoehe=3: GOSU 

B 24198:L0CATE 15,11: PRINT"Bitte Original 

diskette einlegen, dann Taste druecken." 

668 WHILE INKEYS$="":WEND: OPENIN"items.da 
":FOR i=1 TO 48:LINE INPUT#9,grsti):NEX 

T 1:CLOSEIN 

6?8 LOCATE Z1,11:PRINT" neue D" 

788 WHILE INKEYS="":WEND: OPENOUT"items.d 

at":FOR i=1 TO 49: PRINT#9,grsti):NEXT i: 

CLOSEOUT 

718 CLS:!x=20: y=18:breite=41:hoehe=3: GOSU 

B 2418:L0CATE 21,11: PRINT"Diskette wird 

vorbereitet - Bitte warten." 

728 OPENOUT"name. dat":PRINT#9, dname®: CLO 

SEOUT:CLS:60T0 418 

739 '(Katalog anzeigen) 

749 xsl:y=i:breite=78:hoehe=23:GOSUB 241 


589 CLS:x=17:ye19:breite=47: hoehe=3: G0SU 8 » 
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732 WINDOW #3,2,79,3, 23: WINDOW SWAP 9,3: 

CAT:PRINT:PRINT"Bitte Taste betaetigen." 
5:WINDOW SWAP 3,2 

769 WHILE INKEYS="":WEND:CLS:GOTO 418 

778 ’(Files umbenennen) 

788 LOCATE 1,5:PRINT"Alter Dateiname: ":x 

=10:y=7:breite=12:hoehe=3: G0SUB 2419 

798 LOCATE 1,13:PRINT"Neuer Dateiname: ": 

y=17:005SUB 2418 

899 LOCATE 11,8: INPUT"",alt$:LOCATE 11,1 

8: INPUT" ",neu$ 

819 alts=UPPER$(alt$) :neus=UPPERS(neuß$): 

REN, Sneus, Salt$:CLS:GOTO 738 

828 ’(Files loeschen) 

838 LOCATE 1,9: PRINT"Dateiname: ":x=19: y= 
il:breite=s12:hoehe=3: 60SUB 2419 

848 LOCATE 11,12: INPUT"",alts 

859 alt$=UPPER$(alt$):0ERA,Salt$:CLS:GOT 

0 738 

869 ’(Diskette anmelden) 

879 x=20: y=1d:;breite=49: hoehe=3:G605UB 24 
18:LOCATE Z1,11:PRINT"Diskette wird ange 

meldet - Bitte warten." 

888 OPENIN"nane.dat":LINE INPUT#9, dname$ 
:CLOSEIN 

898 OPENIN"date. dat": INPUTH9, day: INPUTHY 
‚monat: INP!T#9, jahr:CLOSEIN 

988 OPENIN"items.dat":FOR i=1 TO 49:LINE 
INPUT#9,gr$(i):NEXT i:CLOSEIN 

918 CLS:GOSUB 29839:60T0 418 

928 'Budget Manager 

530 men=2:G05SUB 2079 

948 ON wahl GOTD 959, 1959, 1100, 320 

959 '(Datei neu einrichten) 

968 filenames=MID$(STR$6(monat),2)+"-"+MI 

DS (STR$(jahr) ,2)+".DAT":jtile$=MIDS(STR$ 
(jahr), 2)+".DAT":GOSUB 2939 

978 CLS:PRINT:PRINT"Datei "jfilename$; " 

neu einrichten. ":PRINT:PRINT: PRINT 

988 PRINT"Existiert fuer das Jahr ";MID$ 
(STR&(jahr),2)5: INPUT" bereits eine Date 
i"sjn$:IF UPPER$S(LEFTS(jn$,1))="N" THEN 
1918 

998 OPENIN jtfiles: INPUT#H9, vglS:CLOSEIN:I 

F INSTR(vgl$,CHR$(monat))=8 THEN vgl$=vg 
IS+CHR$ (monat) :OPENOUT jtiles:WRITEHF, vg 
185: CLOSEOUT:GOTO 1929 

1888 PRINT:PRINT: INPUT"Datei bereits vor 

handen. Alten Inhalt loeschen"’jjn$:IF UP 

PERS(LEFT$(jn$,i})="N" THEN filenames="*" 
:GOSUB 29839:60T0 1849 ELSE 1038 

1818 vgl$=CHRS (monat) :OPENOUT jfiles:WRI 

TEH#9, vglS: CLOSEOUT 

1829 CLS:x=21:y=1Q@:breite=39: hoehe=3: 608 

UB 2419:L0CATE 22,11:PRINT"Datei wird ei 

ngerichtet - Bitte warten." 

1838 FOR i=l TO 49: grbetr (i)=dibt(i)=day 
NEXT i:0OPENOUT filename$s:FOR i=1 TO 49: 

PRINT#9,grbetr (i):PRINT#9,bt (i):NEXT i:c 

LOSEOUT 
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1848 CLS:60T0 929 

1859 ’(Datei anmelden) 

1868 filenames=MIDs (STR#6(monat),2)+"-"+M 
IDS(STR6(jahr) ,„2)+".DAT*® 

1878 CLS:x=22: y=19:breite=37: hoehe=3: 008 
UB 2418:L0CATE 23,11:PRINT’Datei wird an 
gemeldet - Bitte warten.” 

19888 OPENIN filenames:FOR i=1 TO 49: INPU 
TH9,grbetr (1); INPUTH9,btiL):NEXT I:CLOSE 
IN 

1898 CLS:GOSUB 2930:60T0 929 

1188 '(Bearbeiten) 

1118 x=18:ysi:breite=44:hoehe=23: G0SUB 2 
@lL9: PRINT CHRS(24)9:LOCATE 19,2:PRINT"Gr 
uppe"5:LOCATE 42,2: PRINT"LA"S:SLOCATE 47, 
2:PRINT"Betrag"5:LOCATE 58,2: PRINT"S/H"J 
CHRS (24) 3 

1128 FOR i=2 TO 22:LOCATE 49, 1:PRINT"O": 
LOCATE 45, 1: PRINT"O":LOCATE 56, 1: PRINT” 
"NEXT ithaelfte=dizeile=t 

113% subshaelfte*29: FOR i=i+sub TO 20+su 
b:LOCATE 19,i+2-sub:PRINT SPACES(29) :LOC 
ATE 19,i+2-sub: PRINT gr$(i):LOCATE 42, it 
2-sub:PRINT USING"##"5btti):LOCATE 47, i+ 
2-sub:PRINT USING"#HHHH. #4" jgrbetr (i) 
1149 LOCATE 58, i+2-sub: PRINT SPACES(S):L 
OCATE 38, i+2-sub:IF grbetr (i))® THEN PRI 
NT"Haben" ELSE IF grbetr(i)(® THEN PRINT 
"Soll" 

1158 NEXT i 

1168 LOCATE 17,zeile+2:PRINT")":LOCATE 6 
4, zeile+2:PRINT”C" 

1178 t$=UPPERS(INKEYS):IF t6="" THEN 117 
8 

1188 LOCATE 17,zeile+2:PRINT" "SLOCATE 6 
4,zeile+2:PRINT” " 

1198 IF t6=" " THEN haelfte=ABS(NOT(-hae 
Ifte)):G0TO 1138 

1288 IF t$=CHR8(127) THEN 1269 

1218 IF t6=CHRS(241) THEN zeile=zeileri: 
IF zeile)28 THEN zeilesi 

1228 IF t$=CHR$(249) THEN zeile=szeile-i! 
IF zeile‘i THEN zeile=29 

1239 IF t$="A" THEN LOCATE 64, zeile+2:IN 
PUT"Ausg.: ",aus:LOCATE 644, zeile+2:PRINT 
SPACE$S(15):grbetrizeile+sub)=grbetr (zei 
le+sub) -ausibt (zeile+sub)=day:G0TO 1139 
1249 IF t$="E" THEN LOCATE 64, zeile+2:IN 
PUT*"Einn.: ",ein:LOCATE 64, zeile+2: PRINT 
SPACES(15):grbetr (zeile+sub) =grbetr (zei 
le+sub) tein:bt(zeile+sub)=day:GOTD 1139 
1258 GOTD 1169 

1268 CLS:x=18: y=1@:breite=45: hoehe=3: 808 
UB Z419:L0CATE 19,11:PRINT"Datei wird zu 
rueckgespeichert - Bitte warten.” 

1278 OPENOUT filenanes: FOR i=1 TO 49: PRI 
NT#9,grbetr(i) :PRINT#9,bt (1): NEXT I:CLOS 
EOUT 

1288 CLS:GOTO 928 

1279 '’Graphics Manager 
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1388 men=3:60SUB 2978 

1318 ON wahl GOTO 1329,1430,1519,1659,17 
80,329 

1328 ’(Saeulen Jahr) 

1338 jtiles=MIDS(STR$S(jahr),2)+".DAT":OP 
ENIN jtile$: INPUT#9, vgl$:CLOSEIN 

1348 x=28: y=1d:breite=41:hoehe=3:G60SUB 2 
al9:LOCATE Z1,11:PRINT"Dateien werden be 
arbeitet - Bitte warten.” 

1358 FOR i=1 TO L2:msti)=d: IF INSTR(vgl$ 
‚„CHRS(I)) THEN mfiles=MIDE(STRS(I),2)+"- 
"+jtile®:0PENIN ntfile$s:FOR j=1 TO 49: INP 
UT#9, betrims(i)ems(i)+betr: INPUTHP, dummy 
:NEXT j:CLOSEIN 

1368 NEXT i:CLS 

1378 G0OSUB 2189:FOR i=i1 TO 12:IF msti)=9 
THEN 1398 

1388 FOR j=jfakkt-jmi) TO jtakk(ms(i)-jm 
i) STEP SON(jfakkms(ti)):MOVE 4dr(i-1)%46 
‚3+sQ@:DRAWR 39,0: NEXT j 

1398 NEXT i:MOVE 49, jy9:DRAWR 12%46,9: MO 
VE 49,50:DRAW 49, 358 

19498 FOR i=8 TO jmi STEP -jskal:MOVE 42, 
jfakkti-jmi)+SQ:DRAWR -4,Q: NEXT i:FOR i= 

8 TO jma STEP jskal:MOVE 48, jtakkti-jmi) 
+50: DRAWR -4,8: NEXT i 

1418 LOCATE 1,2:PRINT CHRS(24) 5 "Monatlic 
he Ausgaben"jjahrsCcHR$(24) 5" Skalieru 
ng: I Einheit ="jjskals"DM"SLOCATE 1,22: 
PRINT"Bitte Taste betaetigen." 

19428 WHILE INKEYS=""SWEND:CLS:GOTO 1298 
1438 ’(Saeulen Gruppen/Monat) 

1449 CLS:G0SUB 223% 

1458 FOR i=1 TO 49:IF grbetr(i)=9 THEN I 
478 

19468 FOR j=mfakkt(-mmi) TO mtfakklgrbetr(i 
I)-mmi) STEP SGN{mfak*grbetr(i)):MOVE 49+ 
(i-1)#14,j+SQ:DRAWR 6,8: NEXT j 

1478 NEXT 1:MOVE 48,my@:DRAWR 48%14,0:MO 

VE 48,30: DRAW 40,359 

1988 FOR i=9 TO mmi STEP -mskal:MOVE 48, 

mfrakkli-mmi)+SQ:DRAWR -4,@:NEXT i:FOR i= 

8 TO mma STEP mskal:MOVE 49,mtak*(li-mmi) 
+50: DRAWR -4,0: NEXT i 

1498 LOCATE 1,2:PRINT CHR$(24) 5 "Ausgaben 
/Einnahmen Monat"jmonat;","jjahriCcHR$(24 
I," Skalierung: 1 Einheit ="Imskalj;" 

M"SLOCATE 1,22:PRINT"Bitte Taste betaeti 

gen." 

1588 WHILE INKEY$="":WEND:CLS:GOTO 129% 
1518 ’(Saeulen Gruppen/Jahr) 

1528 CLS: jfile$=MIDs(STR$ (jahr), 2) +". DAT 
":OPENIN jfile$s: INPUT#9, vglS:CLOSEIN 
1539 x=20: ye1ß:breite=41:hoehe=3:605UB 2 

a19:LOCATE Z1,11:PRINT"Gruppen werden au 

faddiert - Bitte warten." 

1549 FOR i=1 TO 49:hbetr(i)=grbetr(i):gr 

betrti)=@: NEXT i 

1558 FOR i=1 TO 12:IF INSTR(vgl$,CHRS$(i) 
I)=d THEN 1578 
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1568 mtiles=MIDS(STRSt I), 2)+"-"+jtiles:0 

PENIN mfile$:;FOR j=1 TO 49: INPUTHP, betr: 

grbetr (j)=grbetr (j) +betr: INPUTR9, dummy:N 

EXT j:CLOSEIN 

1578 NEXT i:CLS 

1589 GOSUB 2259: FOR i=1 TO 48: IF grbetr( 
i)=8 THEN 16888 

1598 FOR jemtakkt-mni) TO mtakktgrbetr(i 
)-mmi) STEP SGNimfaktgrbetrti)):MOVE 49+ 
{i-1)#14,j +50: DRAWR 6,9: NEXT j 

1688 NEXT i:MOVE 49,my@:DRAWR 40%14,0: MO 

VE 48,50:DRAW 49, 358 

1618 FOR i=9 TO mmi STEP -mskal:MOVE 48, 

mfakk(i-mmi)+SQ:DRAWR -4,D: NEXT i:FOR i= 

8 TO mma STEP mskal:MOVE 4d,ntak*tli-mni) 

+59: DRAWR -4,B:NEXT i 

1628 FOR ist TO 49: grbetr (i)=hbetr(i):NE 

xT i 

1638 LOCATE 1,2:PRINT CHR$(24) $ "Ausgaben 
/Einnahmen"5; jahr; CHR$(24);" Skalierun 

g: I Einheit ="jmskals "DM":LOCATE 1,22:P 

RINT"Bitte Taste betaetigen. " 

1649 WHILE INKEYS=""SWEND:CLS:GOTO 1298 
1658 ’(Gruppenvergleich Monat) 

1668 CLS:PRINT:PRINT:INPUT"Mit welchem M 

onat (1..12) soll verglichen werden"jvm: 

PRINT: PRINT: INPUT"In welchem Jahr? 19*, 

vj 

1678 CLS:x=17:y=1Q:breite=47:hoehe=3: 608 

UB 2419:L0CATE 18,11:PRINT"Vergleichsdat 

ei wird eingelesen - Bitte warten." 

168% vtiles=MIDS(STRE(vm) ,2) +"-"+MIDS (ST 

R6(vj),2)+".DAT"SOPENIN vfile®:FOR i=i T 

0 48: INPUT#P,hbetr (ii): INPUTHP, dummy: NEXT 
i1:CLOSEIN 

1698 CLS:G0SUB 2329 

1788 FOR i=1 TO 48: IF grbetr(i)=9 THEN I 
728 

1718 FOR j=vfakkt(-vmi) TO vfrak*(grbetrti 
)-vmi) STEP SGN(vtak*tgrbetr(i)):PLOT 43+ 
(i-1) #14, j+30: PLOT S4+(i-1)%*14,j +30: NEXT 
j"PLOT 43+(1-1)#14,j+50:DRAWR 11,9 

1728 NEXT i:FOR i=1 TO 49: IF hbetr(i)=ß 
THEN 17498 

1738 FOR j=vfak*(-vmi) TO vtakk*(hbetr (i) 
-vmi) STEP S6N(vfak*hbetr(i)):MOVE 46+(i 
-1)*14,j+39:DRAWR 4,0: NEXT j 

1748 NEXT 1:MOVE 49,vyQ:DRAWR 49%14,8:MO 
VE 48,59: DRAW 48, 35% 

1758 FOR i=8 TO vmi STEP -vskal:MOVE 48, 
vfrak*(i-vmi)+SQ:DRAWR -4,8:NEXT i:FOR i= 

8 TO vma STEP vskal:MOVE 49, vfakkti-vmi) 
+59: DRAWR -4,B: NEXT 1 

1768 LOCATE 1,2:PRINT CHR$(24)} "leere Sa 
eulen: "jmonat;"/";jahr;" ausgef. Saeu 
len: "jvmi "/"SVvjsCHRS(24) 35" 1 Einhei 
t ="jvskals"DM"SLOCATE 1,22: PRINT"Bitte 
Taste betaetigen." 

1778 WHILE INKEY$S="":WEND:CLS:G0OTO 1299 
1788 ’(Gruppenvergleich Jahr) 


1798 CLS:PRINT:PRINT:INPUT’Mit welchem J 
ahr soll verglichen werden? 19",vj 
1888 CLS:x=12: y=19:breite=37: hoehe=3:! 605 
UB 2410: L0CATE 13,11: PRINT"Dateien werde 
n eingelesen und aufsummiert - Bitte war 
ten.“ 
1818 jtfile$=MIDS(STRE(Vj),2)+".DAT":FOR 
i=s1 TO 48: abetr (i)=grbetr (i):grbetr(i)=d 
ıhbetr(1)=9: NEXT i 
1828 orgfile$=MID$(STR$(jahr) ,2)+".DAT": 
OPENIN orgfiles: INPUT#9, vgl$: CLOSEIN 
1838 FOR i=1 TO L2:IF INSTR(vgl8,CHRS(I) 
)=ed THEN 1859 
1848 dfiles=MIDS(STRS(I),2)+"-"+orgtiles 
:OPENIN dfile$s:FOR j=1 TO 49: INPUT#9, bet 
rigrbetr (j)=grbetr (j) +betr: INPUTRY, dummy 
NEXT j:CLOSEIN 
1858 NEXT i:LOCATE 31,28: PRINT CHRS(24) 
"Diskette wechseln?"5CHR$(24)5:WHILE INK 
EY$=""SWEND:LOCATE 31,28: PRINT SPACE$(18 
):OPENIN jfiles: INPUTHP, vglS:CLOSEIN 
1868 FOR i=i TO 12:IF INSTR(vgl®,CHRE(I) 
)=8 THEN 1888 
1878 dfiles=MIDE(STRS(Ii),2)+"-"+jtile$:0 
PENIN dfile$:FOR j=1 TO 49: INPUT#9, betr: 
hbetr (j)=hbetr (j) +betr: INPUT#9, dummy: NEX 
T j:CLOSEIN 
1888 NEXT i1:CLS:G0SUB 2328 
1898 FOR i=1 TO 48: IF grbetr(i)=d THEN 1 
919 
1708 FOR j=vtfakkt-vmi) TO vtakk(grbetr(i 
)-vmi) STEP SGN(vfakkgrbetr(i)): PLOT 43+ 
(i-1)#14,j+58; PLOT S4+(i-1)%14,j +50: NEXT 
j»PLOT 43+ti-1)%14,j+59:DRAWR 11,8 
1918 NEXT i:FOR i=1 TO 48: IF hbetr(i)=ß 
THEN 1938 
1928 FOR j=vtfakkt-vmi) TO vtakk(hbetr(i) 
-vmi) STEP SGN(vfakkhbetr(i)):MOVE 46+tli 
-1)*14,j+5@:DRAWR 4,8: NEXT j 
1938 NEXT i:MOVE 49,vyQ:DRAWR 48%14,9: MO 
VE 48,590:DRAW 49, 359 
1748 FOR i=d TO vmi STEP -vskal:MOVE 49, 
vfak%kti-vmi)+SQ:DRAWR -4,9:NEXT 1:FOR i= 
8 TO vma STEP vskal:MOVE 49, vfakkli-vmi) 
+5@:DRAWR -4,8: NEXT i 
1959 LOCATE 1,2:PRINT CHRS6(24)j "leere Sa 
eulen: "} jahr" ausgef, Saeulen: "jvjjc 
HRB (24) 5" I Einheit z"jvskals"DM"iL 
GCATE 1,22:PRINT"Bitte Taste betastigen. 
U] 


1968 WHILE INKEYE=""SWEND:CLS:GOTO 1298 
1978 'Programm beenden 

1988 CLS:dfiles="%.BAK":SERA, Sdtiles 
1999 MODE 2:PRINT”"Auf Wiedersehen. ..":PR 
INT:END 

2298 ' 

2818 '+++ Unterprogramme +++ 

2028 ’ 

2838 'Statuszeile anzeigen 

2848 CLS#2:PRINT#2,CHRS(24)5: IF dnames=" 


" THEN PRINT#2, "Keine Diskette angenmelde 
t. "3 ELSE PRINT#2, "Diskette "jdnamesj " 
angemeldet. "} 

20858 IF filenames="" THEN PRINT#2,"Keine 
Datei angemeldet, "3j ELSE PRINT#2, "Dat 
ei "jfilenamesj" angemeldet. "} 

20868 PRINT#2, "Datum: "sdayj "/"jmonatj "/"5 
jahr; CHR$(24) 5 :RETURN 

2878 "Untermenue-Auswahl 

28889 x=10:y=S5:hoehe=1:WHILE menu$s(men, ho 
ehe) <>"":hoehe=shoehe+1:WEND 

2898 hoeheshoehe+l:breite=39: G0OSUB 2419: 
hoehe=shoehe-2:wahl=1 

2188 FOR i=1 TO hoehe:LOCATE x+2,y+i:IF 
izwahl THEN PRINT CHR$(24) jmenu$(men,i)} 
CHR$(24)5} ELSE PRINT menu$(men,i)j 

2118 NEXT i 

2128 t$=eINKEYS:IF t$="" THEN 2129 

2138 IF t$=CHR$(224) THEN 2178 

2148 IF t$=CHR$(241) THEN wahl=wahl+il:IF 
wahl>hoehe THEN wahl=i 

2158 IF t6=CHR$(249) THEN wahl=wahl-L: IF 
wahl<i THEN wahlshoehe 

2168 GOTO 21908 

2178 SOUND 1,29,29,15:CLS:RETURN 

2169 'Jahresminima und -maxima 

2199 jma=-1088899:FOR i=1 TO 12:IF ms(i) 
>jma THEN jma=ms(i) 

2299 NEXT i:jmi=jma:FOR i=1 TO 125IF ms( 
i)<jmi THEN jmiens (ji) 

2218 NEXT i:IF jmi)>d THEN jmi=d 

2228 IF jmi=jma THEN 2249 

2238 jtak=308/(jma-jmi):jyQ=(388/(jma-jm 
I)#t-jmi)+SQ: IF (jna-jmi))309 THEN jska 
12108 ELSE jskal=19 

2248 RETURN 

2259 'Monatsminima und -maxina 

2260 mma=-10009099: FOR i=1 TO 48: IF grbet 

r(i)>mma THEN mma=grbetr (1) 

2278 NEXT i:mmi=mma:FOR i=1 TO 48:IF grb 

etr(i)<mmi THEN nmi=grbetr (i) 


2288 NEXT i:IF mmi)d THEN mmi=d 


2299 IF mmi=mma THEN 2318 

23088 mtak=390%/ (mna-mmi ) ımyd=(398/ (mma-mm 
I))#t-mmi)+SQ: IF (mma-mmi))30% THEN mska 
12188 ELSE mskal=19 

2319 RETURN 

2328 'Vergleichsminima und -maxima 

2339 vma=-1290290:FOR i=1 TO 48: IF grbet 
r(i)>vma THEN vma=grbetr (1) 

2348 IF hbetr(i}>vma THEN vmashbetr (ji) 
2358 NEXT Itvmi=vmasFOR i=i TO 48: IF grb 
etrti)(vmi THEN vmisgrbetr(i) 

2368 IF hbetr(i)<vmi THEN vmi=shbetr (ij) 
2378 NEXT i:IF vmi)? THEN vmi=ß 

2389 IF vmi=vma THEN 2498 

2378 vtak=309/ (vma-vmi):vy@=(390/(vma-vm 
I))#C-vmi)+SQ: IF (vma-vmi))329 THEN voka 
12109 ELSE vskal=19 

2498 RETURN 


LISTING 


2418 'Rahmen zeichnen 

2429 LOCATE x,y:PRINT CHRE(LS@)ISTRINGS( 
breite,i1S4) 5CHRS(156)5:LOCATE x,y+hoehe- 
1:PRINT CHR®(147) JSTRING®(breite, 154) ICH 
RB(153) 35 

2430 FOR ii=y+1 TO y+hoehe-2:L0CATE x,ii 
:PRINT CHRS(149) 5 SPACES (breite) ;CHRS(149 
II:NEXT I1:RETURN 

2449 ' 

2458 '+++ Daten +++ 

2468 ' 

2478 'Menue-Texte 

2489 DATA Disk Manager, Budget Manager ‚Or 
aphics Manager ‚Ende 

2498 DATA Gruppen vorbereiten, Datum setz 
en,Disk vorbereiten,Katalog anzeigen,Fil 
es umbenennen, Files loeschen,Diskette an 
melden, Rueckkehr,, "" 

2598 DATA Datei neu einrichten, Datei ann 
elden,Datei bearbeiten, Rueckkehr,, "" 

2519 DATA Saeulen Jahr, Saeulen Gruppen # 
uer Monat,Saeulen Gruppen tuer Jahr,Grup 
penvergleich Monat,Gruppenvergleich Jahr 
‚Rueckkehr, "" 


BUDGET-MANAGER 


Fortsetzung von Seite 26 


Ein Druck auf die DEL-Taste beendet die Bearbeitung 
und die Datei wird auf Diskette zurückgespeichert. 

Es ist günstig, die Einnahmen und die Ausgaben auf 
diese Weise jeweils täglich einzugeben, damit die Da- 
tei immer auf dem neuesten Stand ist. 


Der Graphics Manager 


Dieser Programmteil soll Ihre Ein- und Ausgaben in 
übersichtlicher Form grafisch darstellen. Sofern der 
aktuelle Monat gewünscht wird, müssen Sie keine wei- 
teren Eingaben machen. Bei Vergleichen muß ledig- 
lich der Vergleichsmonat bzw. das Vergleichsjahr ein- 
gegeben werden. 


A.Säulen — Jahr 
Es werden die Gesamtein- und -ausgaben je Monat 
für das laufende Jahr dargestellt. 


B. Säulengruppen — Monat 
Grafische Darstellung des aktuellen Standes jeder 
Gruppe im laufenden Monat. 


C. Säulengruppen — Jahr 
Wie B, jedoch für das laufende Jahr nach Sachgruppen. 


D.Gruppenvergleich Monat 
Wie B, jedoch Vergleich zweier Monate. . 


E. Gruppenvergleich Jahr 

Wie C; zwei Jahre werden verglichen. 

Beachten Sie hier, daß Sie eventuell die Diskette 
wechseln müssen, sobald die entsprechende Auffor- 
derung erscheint. Erst nach einem Tastendruck wer- 
den die Daten des Vergleichsjahres eingelesen. 


Allgemeines: 


Wichtig ist, daß alle Monatsdaten für ein Jahr jeweils 
auf derselben Diskettenseite gespeichert sind. Sie soll- 
ten sich zusätzlich zum Programm alle Gruppenbe- 
zeichnungen der Reihe nach auf einen Zettel notie- 
ren, damit Sie die Säulen der Grafik den richtigen 
Gruppen zuordnen können. Die Anzeige der Bezeich- 
nungen in der Grafik ist aus Platzgründen nicht mög- 
lich. Und nun: Viel Spaß und Erfolg mit dem Budget 
Manager. 

(Alwin Ertl) 


DREI- 
DIMENSIONALE 
SCHRIFT 


„Maniac Miner‘‘-Fan scheint Gerald Steffens zu sein. 
Angeregt durch das Titelbild hat er ein kleines Basic- 
programm geschrieben, welches beliebige Zeichen drei- 
dimensional auf dem Bildschirm ausgibt. Das Pro- 
gramm greift auf die Symboltabelle im Schneider-RAM 
zurück und setzt die Zeichen dann Punkt für Punkt zu- 
sammen. Dadurch wurde es möglich, einen Text sofort 
als Grafik umzusetzen. Am sinnvollsten wird das Pro- 
gramm im Modus | angewandt, denn hier passen fünf 
Zeichen nebeneinander. 


Das Programm ist aber zur Weiterverarbeitung gedacht 
und wir raten deshalb, etwas zu experimentieren. Ver- 
suchen Sie einmal, im Modus O die Zeichen diagonal 
anzuordnen oder ändern Sie den Zeichensatz des 
CPCs. Was dabei herauskommt, wird jedes Ihrer Pro- 
gramme mit Ihren Initialen als Titel schmücken. 

Der kleine Spaß ist auf allen CPCs lauffähig, wenn Sie 
folgendes beachten: Besitzen Sie einen CPC 464, so 
geben Sie das Listing ein, wie es abgedruckt ist. Wenn 
Sie jedoch einen CPC 664 oder einen 6128 Ihr Eigen 
nennen, so entfernen Sie aus Zeile 75 das REM-Zei- 
chen (‘ — nur hinter der Zeilennummer) und fügen 
statt dessen in Zeile 70 ein REM hinter die Zeilen- 
nummer ein (also: 70 ‘po=...). 
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LISTING 


RRRRRHRHRHRRHHHHRBHHHBHHHHHBBHHHHHH: 


1 

2’% Dreidimensionale Schrift * 
3’% * 
4 ’%* 6,Steffens * 
5 ’% fuer * 
6’%* Schneider aktiv * 
»’% * 
8’%+ CPC 464 / 664 / 6128 * 
9 


RRRRRRRHRRRRHBRRRHRRRRRBBRRRHRHRHHRE 
18 DEFINT a-o,q-z:DIM te(9,9):5YMBOL AFT 
ER 32 
208 MODE 1:BORDER @:INK 8,9: INK 1,2:INK 2 
20 
30 SYMBOL 221,170,85,171,87,175,95, 191,1 
27 
48 SYMBOL 222, 254,253, 259,245, 234,213,17 
8,85 
Ss ’#% Beispiel 3% 

Si text$="3-dim":zeile=4:spalte=1:G60SUB 
78 

32 text9="titel":izeile=14:spalte=1:G0SUB 
>08 

53 FOR a=1 TO 4889:NEXT 

54 MODE 9: INK 1,4:INK 2,8 

35 text$="C"izeilesi!ispalte=1:G60SUB 79 
56 text$="P"izeile=9:spalte=8:60SUB 79 
57 texts="C"izeile=siä:spalte=13:60SUB 7% 
38 PEN 1:PRINT "Schneider"j:PEN 2:PRINT 
" Aktiv" 

59 FOR a=i TO 4098:NEXT:GOTO 28 

62 '% Zeichenroutine * 

78 po=PEEK (KkB296) +256%PEEK (kB297) -257: '$ 

ver 464 

753 'po=PEEK (&B736) +256%PEEK (&B737) -257: ° 

fuer 664/6128 

88 FOR a=1 TO LEN(text#) 

99 pr=po+B#ASC (MIDS(texts$,a)) 

188 FOR c=i TO 8 

118 r=zl:ie=PEEK(pr+c) 

128 FOR d=8 TO 1 STEP -1 

1380 teic,d)=e AND rirer+r 

148 NEXT:NEXT 

158 PEN 2 

168 FOR g=d TO 8 

179 LOCATE spalte+8%a-8,zeile+g 

188 FOR h=1 TO 9 

199 IF fe(g,h) THEN PEN 1:PRINT CHRS(143 
)5:PEN 2:G0T0 26% 

289 IF te(g,h-1) GOTO 249 

218 IF te(g+1,h-1) GOTO 239 

220 IF feig+1,h) THEN PRINT CHR$(214)35:6 
OTO 268 ELSE PRINT CHR$S(9)5:G0T0 269 

239 IF fe(g+1,h) THEN PRINT CHR$(143) 35:6 
0OTO 268 ELSE PRINT CHR®(222)3:G0T0 268 
249 IF fetg+l,h) THEN PRINT CHR$(221)3:6 
OTO 269 

258 IF feig+i,h-1) THEN PRINT CHRS(297) 3 
ELSE PRINT CHRS$(229) 

268 NEXT:NEXT:NEXT 

278 RETURN 
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WALL 
RUNNER 


„Wall Runner“ ist ein aktionsreiches Spiel für die 
CPCs, welches Ihnen zusätzlich die Möglichkeit gibt, 
Ihr eigenes Spielfeld zu konstruieren. 

Nachdem Sie mittels Tastendruck das Titelbild zum 
Verschwinden gebracht haben, erscheint die Haupt- 
auswahlliste, aus der Sie mittels Joystick wählen 
können. Dabei handelt es sich um folgende Optionen: 
— Level laden 

— Level editieren 

— Spielen 

— Programm beenden 

Insgesamt können 10 verschiedene Levels definiert 
werden. Sie können dazu jedoch auch jedes Spielfeld 
einzeln aus der angelegten Datei laden. Dazu mehr 
beim Stichwort „Editieren“. 

Beim Laden der Levels können Sie zu jeder Nummer 
einen Dateinamen eingeben. Wenn Sie statt dessen 
nur Enter betätigen oder in der angegebenen Datei 
kein Display unter dieser Nummer enthalten ist, er- 
scheint die Meldung “Level x ist undefined“, sonst 
sehen Sie “Level x is loaded“ 


ko 


HISCORE 


ran a 
[26] 

Ba 

a a a u aa Hl a 


u ar 


Be na DL Lan. a a 0 


IE 


Da Sie zu Beginn nur einen Level definiert haben, 
werden Sie wohl zunächst den Punkt “Level editie- 
ren“ wählen. Hier suchen Sie — wieder ganz bequem 
per Joystick — zuerst die gewünschte Nummer aus. 
Danach erscheint das Spielfeld in der linken, eine 
Auswahlliste in der rechten Hälfte des Bildschirmes. 
Dort wählen Sie ein Symbol aus: entweder einen nor- 
malen Ziegel, einen Energieblock, ein giftgrünes 
Mauergespenst, unseren strahlenden Helden Jonny 
Brick, ein Leerzeichen (zum Löschen), das E oder 
das X. 

Nachdem Sie Ihre Auswahl getroffen haben, lenken 
Sie mit dem Joystick ein Fragezeichen durch das 
Feld. Jedesmal, wenn Sie den Feuerknopf drücken, 
wird ein Symbol plaziert. Mit Enter gelangen Sie in 
die vorherige Auswahl zurück. : 
Besonderheiten gibt es bei den Mauergeistern. Wenn 
Sie eine solche Figur setzen, werden Sie gefragt: 
NUMBER OF ENEMY? Über den bereits plazierten 


Bitte lesen Sie weiter auf Seite 36 
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LISTING 


1987ER: 
118 ’* 


* 
129 ’%* WALL RUNNER * 
139 ’%* * 
148 ’%* Alwin Ertl * 
159 ’%* * 
16@ '%* fuer Schneider aktiv * 
179 '’% * 
180 '’* CPC 464/669/6128 * 

* 


249 ' HAUPTPROGRAMM 

250 ’ 

260 GOSUB 329: G605UB 428 

278 GOSUB 470: IF wahl<4 THEN ON wahl 608 

UB 600,728, 1330:G0T0 279 

269 PEN 1:MODE 2:END 

279 ' 

3009 ’° UNTERPROGRAMME 

318 ' 

328 ’Initialisierung 

339 INK 8,8:PAPER ®: INK 1,26: INK 2,21: IN 

K 3,6: BORDER 8:MODE 1 

399 DIM bilds$(25,19),9px(3),gpy(3) ,gpxs( 

3,18) ,9pys(3,19),sxs(1Q),sys(1Q),steine( 

18),1d(1%) ,menus(4) 

358 FOR i=2 TO 18: 1ld(i)=Qi FOR j=i TO 25: 

bilds(j,i)=" "N 

EXT j,i 

368 FOR i=1 TO 25:READ bilds(i,1):NEXT i 

sld(L)=-1:5READ sxs(lL),sys(lL):FOR i=i1 TO 

S:READ gpxsti,i1),gpys(i,l):NEXT i:READ s 

teine(1i) 

378 SYMBOL AFTER ASC("a")-1:0PENOUT"dumm 

y":MEMORY HIMEM-1L:CLOSEOUT: SYMBOL ASC("a 

"),&FF,&C3,KAS,&99,&99, LAS, &C3,KFF:SYMBO 

L ASC("b"),&FF,&B1,&BD,&BD,&BD,KBD,KBl,k 

FF 

388 SYMBOL ASC("c"),&3C,K7E,KDB,KFF,kE?, 

&DB,KFF,RASSSYMBOL ASC("d"),KBl,KFF,&DB, 

KFF,&DB,KE?,K7E,KSC 

379 SYMBOL 249,&3F,k3F,&69,&7C,KFC,&C9,& 

C9,LCQ: SYMBOL 241, K3E,Kk3F,&73,K7E,KFC,KF 

B,&DC,&3E:SYMBOL 242,&3F,&3F,&78,K7E,K7E 

‚KFE,KCO,KFC 

489 SYMBOL 243,&3F,&3F,&7,&18,k18,KEd,&KF 

C,KFC:SYMBOL 244,&C,&C,&1C,&18,&18,0,&38 

‚&39 

418 menus(1)="LOAD LEVELS":menus(2)="DEF 

INE LEVELS":menu$(3)="PLAY THE GAME" :men 

us(4)="EXIT FROM PROGRAM": levdef$="abcd 

EX": RETURN 

428 "Titelbild 

438 MODE 1:PEN 3:L0OCATE 3,3:PRINT STRING 

(18, "a"):LOCATE 3,12:PRINT STRINGS(1Q9," 

a")sFOR i=4 TO 6:LOCATE 3,i:PRINTTa a 
a":NEXT i:FOR i=7 TO 9:LOCATE 3,1:PRI 

NT'a aaa a':NEXT I:FOR i=18 TO 11:L0C 

ATE 3,1: PRINT"a"3SPACES(8)5 "a": NEXT i 
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448 LOCATE 7,8: PRINT"b":PRINT CHRS$(22) ;C 
HR$(1)5:PEN 2:LOCATE 3,3:PRINT"ccc":PEN 
1:LOCATE 12,3: PRINT"d"SCHRS (22) SCHRS(D) 
458 PEN 1:L0OCATE 21,3: PRINT"WALL":LOCATE 
28,7:PRINT"RUNNER":PEN 3:LOCATE 15,12:P 
RINT"AMSTRAD CPC 464/664/6128":PEN 2:L0OC 
ATE 4,17:PRINT"(C) 1986 BY ALWIN ERTL" 
:PEN 3:LOCATE 4,23:PRINT"PRESS ANY KEY T 
O START" 

468 WHILE INKEY$< 
":WEND: RETURN 
478 'Hauptmenue 
488 MODE 1:PEN 1:L0OCATE 15,2:PRINT"WALL 
RUNNER":LOCATE 4,23: PRINT"PLEASE SELECT 
USING JOYSTICK" 

498 PEN 3:FOR i=1 TO 4:LOCATE 4,4+3%i: PR 
INT menus(i):NEXT iswahl=t 

588 FOR i=1 TO 18:FOR j=1 TO 25:MID$(bil 
ds(j,i),1)=LOWERS(bIldSE(J,I))SNEXT j,i 
S1@ LOCATE 4,4+3%wahl:PEN 2:PRINT menuß( 
wahl) 

528 FOR i=L TO S0:NEXT i 

538 LOCATE 4,4+3%wahl:PEN 3:PRINT menus( 
wahl) 

548 FOR i=1 TO SQ: NEXT i 

s59 jeJOY(@):IF j AND 16 THEN 599 

568 IF j AND 1 THEN wahl=wahl-I:IF wahlt 
i THEN wahl=4 

578 IF j AND 2 THEN wahl=wahl+1:IF wahl) 
4 THEN wahlet 

589 GOTO 318 

598 RETURN 

688 'Levels laden 

618 MODE 1:PEN 1:LOCATE 3,2:PRINT"WALL R 
UNNER - GAME LOADER*:LOCATE 3, 19: PRINT 
"ENTER FILE NAMES UP TO CHARACTERS":LO 


"";WEND:WHILE INKEY$=" 


CATE 3,21: PRINT"PRESS IF LEVEL IS 
UNDEFINED" 

628 PEN 3:LOCATE 26,19: PRINT"8":LOCATE 9 
„21: PRINT"ENTER" 


638 PEN 2:FOR i=1 TO 18:L0CATE 3,4+i:PRI 
NT"LOAD LEVEL FROM FILE":NEXT i 

698 PEN 3:FOR i=1 TO 18:LOCATE 14,4+i:PR 
INT USING"HH"FI:NEXT i 

658 FOR i=1 TO 18:L0CATE 27,4+i:PEN 3:IN 
PUT"",dats: dat#=UPPER$(dat$) +".LEV":LOCA 
TE 27,4+i: PRINT LEFTS$(dat$, INSTR(dat$®,”. 
")-1) 

668 PEN Z:IF dat$=".LEV" THEN 1Id(i}=9:L0 
CATE 3,4+i: PRINT SPACES$(4):LOCATE 17,4+i 
:PRINT"IS UNDEFINED. "5SPACES(19):60T0 71 
8 

678 OPENIN dat$:IF ii THEN FOR jei TO i 
-1:FOR k=1 TO 18: INPUT#9,a: NEXT K:FOR k= 
1 TO Z5:INPUTH9, as: NEXT k,j 

688 INPUTKP,Idti):FOR j=i TO 3: INPUTH9,g 
pxstj,i)sINPUTR9,gpys(j,i):NEXT j: INPUTH 
9,sxsti):INPUT#9,sys(i): INPUTH9, steine(i 
) 

698 FOR j=1 TO 25: INPUT#9,bild$(j,i):NEX 


LISTING 


T j:CLOSEIN:IF 1d(i)=& THEN dat$=".LEV": 
GOTO 668 

728 LOCATE 3,4+1: PRINT SPACES(4):LOCATE 
17,4+i: PRINT"IS LOADED. "5SPACE$ (14) 

718 NEXT i:RETURN 

728 'Level editieren 

739 MODE 1:PEN 1:LOCATE 8,3: PRINT"SELECT 
LEVEL TO BE EDITED: ":LOCATE 15,28: PRINT 
"USE JOYSTICK" 

748 PEN 3:FOR i=1 TO 18:L0CATE 28,5+i:1IF 
ic18 THEN PRINT"9"5:PRINT USING"#"5i EL 
SE PRINT"10" 

758 NEXT i:l=i 

768 PEN 2:LOCATE 29,5+1:IF 118 THEN PRI 
NT"8"3:PRINT USING"#"51 ELSE PRINT"19" 
778 FOR i=1 TO SQ: NEXT i 

788 PEN 3:LOCATE 29,5+1:IF 1<18 THEN PRI 

NT"O"3 PRINT USING"#"}1 ELSE PRINT"19" 
798 FOR i=1 TO SQ:NEXT i 

608 j=JOY(O):IF j AND 1& THEN 848 

818 IF ; AND i THEN 1=1-1:IF I<1 THEN I= 
19 

8208 IF j AND 2 THEN 1=1+1:IF 1318 THEN 1 
=1 

838 GOTO 768 

849 CLS:WINDOWNQ, 1,25,1,25:WINDOW#1,26,4 

2,1,25 

850 PEN #1,1:LOCATER1,3, 2: PRINT#1, "WALL 
RUNNER"SLOCATE#1, 3,4: PRINT#1L, "GAME EDITO 
R" 

868 PEN #1,2:LOCATE#1,3,7:PRINT#1,"SELEC 

TE ":PEN#1,3:PRINT#HL," ab "j:PENHL,2:PR 
INT#1,"c "S:PENHL,ISPRINTHI,"d E X"ısy 

meilixxeliyyel 

878 IF NOT ldt1) THEN FOR i=i TO 25:bild 

si,l)=" "INEXT 
i 

888 PEN 3:FOR i=1 TO 25:LOCATE 1,i: PRINT 
bildsti,1)5:NEXT i:sIF NOT ldtl) THEN 91 

) 

878 PEN 2:FOR i=1 TO 3:LOCATE gpxs(i,1l), 
gpys(i,1):PRINT CHRS(22) ICHRE(L) J"C"ICHR 

Wt22) SCHRELB)J:NEXT i 

988 LOCATE sxs(l),systl):PRINT CHRS(22) 3 

CHRS(L) 5 "A" SCHRS (22) SCHRE(D) 5 

919 SOUND 1,20, 29,15: PEN#1,1:LOCATER1,1+ 
2tsym, 9: PRINTHL,"*" 

928 FOR i=1 TO SQ:NEXT 1:j=J0YtD):IF je 
THEN 928 

938 LOCATEH1,1+2%sym, 9: PRINTHI," " 

949 IF j AND 16 THEN FOR i=1 TO 189: NEXT 
1:60T0 988 

959 IF ; AND 4 THEN sym=sym-1:IF sym(i T 

HEN sym=? 

IF j AND 8 THEN sym=sym+i:IF sym)? T 

HEN sym=1 

979 GOTO 919 

988 as=MIDs(levdet$,sym,1):SOUND 1,49,28 
‚iS:IF as="c" THEN f=2 ELSE IF as="d" TH 

EN f=1 ELSE #=3 
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999 IF as="X" THEN Idtl)=-1:60T0 1239 
108089. IF a$="E" THEN 1d(1)=9:60T0 878 
1818 PEN 1:L0CATE xx,yy:PRINT CHRB(22) IC 
HRB(1) 5 "?"ICHRS (22) SCHRE(D) J 

1828 FOR i=1 TO 59: NEXT i:j=J0Y(D):t6=IN 
KEY$S:IF j=9@ AND t$="" THEN 1929 

1838 PEN 3:LOCATE xx,yy:PRINT MIDS(bild®s 
(yy,1),xx,1)3: PRINT CHRS(22) ICHRELLIJ:PE 
N 1:IF sxs(1)>@ AND sys{1))8 THEN LOCATE 
sxstl),syst1):PRINT"d”} 

1848 PEN 25FOR i=1 TO 3:IF gpxs(i,1))0 A 
ND gpys(i,1)>8 THEN LOCATE gpxs(i,1),gpy 
sti,1);PRINT"c"} 

1859 NEXT i:PRINT CHRS$(22) 5CHRS(D) 3 

1868 IF t6=CHRB(13) THEN 919 

1878 IF j AND 16 THEN 1138 

1888 IF j AND 1 THEN yysyy-1:IF yy<i THE 
N yy=25 
18998 IF j 
EN yyal 
1198 IF j 
N xx=25 
1118 IF j 
EN xxei 
1128 GOTO 1818 

1138 PEN f:IF a$="a" OR a$="b" OR a$=" " 
THEN LOCATE xx,yy:PRINT asj:MIDs(bilds( 
yy,!),xx,1)ea8:G60T0 1918 

1149 IF a6="c" THEN 1170 

1158 IF sxs(1))9 AND sys(1l)>8 THEN PEN 3 
:LOCATE sxs(l),systl):PRINT MIDs(bilde(y. 
y,1),xx,1)1:PEN f 

1168 sxs(l)axxisys(il)=yySLOCATE xx,yy:PR 
INT CHRS(22) JCHRS(1) 3) "d"SCHRS(22) JCHRE (DB 
)5:60T0 1919 

1178 PEN#1,2:LOCATE#1, 3,12: PRINT#L, "NUMB 
ER OF":LOCATER1, 3,13: PRINT#1L, "ENEMY?":PE 
N#1,3 

1188 PEN 1:FOR i=1 TO 3:1IF gpxs(i,1)>Q0 A 
ND gpys(i,1)>8 THEN LOCATE gpxsti,1),gpy 
s(i,1):PRINT CHRS(22) JSCHRS(L) JMIDS(STRSL 
i),2) 5SCHREC22) SCHRS (DW) } 

1198 NEXT 1:LOCATE#1,10,13:S0UND 1,30,28 
‚„IS:PRINTAL, "H"sts="":WHILE t6=""ite=INK 
EYS:WEND:LOCATE#1,12,13: PRINT#H1,t$:9=VAL 
(t$) 

12898 PEN 3:FOR i=1 TO 3:IF gpxsti,1))Q0 A 
ND gpys(i,1))8 THEN LOCATE gpxs(i,1),gpy 
s(i,1): PRINT MID$S(bild$(yy,1),xx,1)5 
1218 NEXT i:gpxs(g,l)=xx:gpys(g,l)eyyiPE 
N 2:FOR i=1 TO 3IF gpxs(i,1))9 AND gpys 
(1,1)>28 THEN LOCATE gpxsti,1),gpys(i,1): 
PRINT CHRS (22) JCHRS(1) 5 "c"SCHRS (22) ICHRS 
(93 

1228 NEXT 1:60T0 1918 

1238 Id(1)=-I:steine(1)=9:5SOUND 1,29,280, 
15: SOUND 1,49,28,15:SOUND 1,19,49, 13 
1248 FOR is1 TO 25: FOR j=1 TO 25:IF MID® 
(bildsti,1),j,1)="a" OR MIDS(bildsti, 1), 
j,1)="b" THEN steine(l)=steine(l) +1 


AND 2 THEN yyseyy+i1:sIF yy)25 TH 
AND 4 THEN xx=xx-1:IF xx(i THE 


AND 8 THEN xxuxx+i: IF xx>25 TH 
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1258 NEXT j,i:SOUND 1,108,28,15:1IF stein 
e(l)=8 THEN Id(1)=8 

1268 PEN#1,2:LOCATE#1,3,18:PRINT#L, "SAVE 
NEW" :LOCATE#1,3,19: PRINT#1, "LEVELS?":PE 
N#1,3:LOCATE#HL, 11,19: PRINT#H1,"#" 

1278 t6=""SWHILE t#="" OR INSTRÜ"YN”’,t8$) 
Qi ts=UPPERS(INKEY®) :WEND:LOCATE#1, 11,19 
:PRINTAL,ES:IF te="N" THEN 1328 

1288 PEN#1,2:LOCATE#1,3,21:PRINT#1, "ENTE 
R":LOCATE#1,3, 22: PRINT#1, "FILE NAME: ":PE 
N#1,3:LOCATE#1,11,23:PRINT#1,*".LEV" 

1298 LOCATE#H1,3,23: INPUTHL,"",dats: dats= 
UPPERS (dat#) :LOCATE#1,3, 23: PRINT#1, dats: 
dat#=dats+".LEV" 

1388 OPENOUT dat#:FOR i=1 TO 18: PRINTH?, 
Idti)sFOR j=i TO 3: PRINT#P,gpxs(j,i):PRI 
NT#9,gpystj,i):NEXT j: PRINTRP,sxsti): PRI 
NT#9,systi):PRINT#F, steine(i) 

1318 FOR j=1 TO 25: PRINT#9,bilds(j,i):NE 
XT j,1:CLOSEOUT 

1328 RETURN 

1338 'Spielen 

1348 moeglich=MIN(Idt1),1dt2) ,1d(3) ,1dı4 
Y,1d5), Id), Id), 148), Id) ,Idl 19) )5 
IF NOT noeglich THEN RETURN 

1359 1=9:MODE 1:WINDOW#Q,1,25,1, 25: WINDO 
WN1,26,49,1,25 

1368 PEN#1,1:LOCATEH1,3,2:PRINT#1, "WALL 
RUNNER" SLOCATE#1, 6,4: PRINT#1, "LEVEL ":LOC 
ATEHL,6, 9: PRINT#HL, "LIVES"SLOCATEH1, 6,14: 
PRINT#H1, "SCORE" :LOCATE#1,5,19:PRINT#L,"H 
ISCORE*® 

1378 PEN#1,2:FOR i=3 TO 18 STEP S:LOCATE 
#1,6, 1: PRINTHL,CHRS(15@) I STRINGS (3,154) 35 
CHRS(1S6) SLOCATEHL, 6, 1 +1: PRINTHL,CHRE(1A4 
9)" "ICHRECLA9)SLOCATEH1, 6, i +2: PRINT# 
1,CHR®(147) J5TRINGS (3, 154) JCHRS(153) :NEX 
Ti 

1389 FOR i=15 TO 28 STEP S:LOCATE#HL,4,1: 
PRINT#1,CHRS(138) I STRINGS (7,1354) ICHRS (15 
6) sLOCATEHL,4, i+L5PRINTHI1,CHRS (149) JSPAC 
EST) ICHRELL1AP) SLOCATERHL, 4, 1+2:PRINTHL,C 
HRS(L47) JSTRINGS (7,154) SCHRS(1S3) SNEXT i 
1398 lives=3: score=d: treeze=d: PENHL,3 
1498 sz=0:1=(1 MOD LO) +1:WHILE NOT Id(l) 
si=(1 MOD 18) +1:WEND 

1418 LOCATEH1,7,6:PRINTHI, USING"HHH"ILEP 
EN 3:CLS:FOR i=1 TO 25:L0CATE 1,1:MID6(b 
ildsti,1),L)=LOWERB(bILdSKI, LI): PRINT bi 
Idsti,1)9:NEXT i 

1428 PEN 2:FOR i=i TO 3:gpx(i)=gpxsti,!) 
sgpyli)mgpysti,1):LOCATE gpx(i),gpyli):P 
RINT CHR$ (22) 5SCHRS(1L) 5 "c" ICHRS(22) I CHREL 
BII:NEXT i 

1438 PEN L:isx=sxull)isyesystl):LOCATE x 
Sy: PRINT CHRS(22) ICHRSLLIS "d"ICHRBI(22) 
CHRS(B)J:FOR i=1 TO 3:50UND 1,198,19,15: 
SOUND 1,38,19,13:SOUND 1,25,15, 15: NEXT i 
1448 IF treeze THEN 1499 

1459 aus=9:FOR i=1 TO 3:PEN 3:LOCATE gpx 
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ti), gpyti):sIF MIDStbildstgpyli),1),gpxti 
),1)C"a" AND MIDBibildsigpy(i),L),gpx(i) 
„LIc>" " THEN PRINT CHRS(127)} ELSE PRIN 
T MIDS(bildstgpyti), 1) ,gpx(i), 193 

19469 xv=SGN(sx-gpxti))iyv=SGN(sy-gpyti)) 
sIF gpx(i)+xv>@ AND gpx(i)+xv<26 AND gpy 
(1)+yv)@ AND gpy(i)+yvt26 THEN gpx(i)=gp 
x(i)+xvigpyli)lmgpyli)ryv 

1478 PEN 2:LOCATE gpx(i),gpyti):PRINT CH 
RB(22) ICHRB(L) SC" ICHRE(2ZI SCHRS(DIJ: IF 
gpx(i)esx AND gpyli)usy THEN aus=-1 

1488 SOUND 2,8,2,4,8,8,5: NEXT i:IF aus T 
HEN 1668 

1498 DI: PEN#1,3:LOCATEH1,7,11:PRINTH1,US 
ING" AHH"Sliven:LOCATEHL,S, 16: PRINTH1,USI 
NO"AHNHHAR"Iscore: IF score>high THEN hig 
hescore 

1598 LOCATEH1,5,21:PRINT#HL,USING"HHHHHHR 
"IhighsEl 

1519 j=J0Y(@): IF j=d THEN 1448 

1528 PEN 3:LOCATE sx,sy:IF MID®(bilds(sy 
‚D,sx,1)C"a" AND MIDS(bild$(sy,1),sx,1) 
<>" " THEN PRINT CHRS(127)1 ELSE PRINT M 
ID6(bildsley,1),ux,i1)} 

1538 IF j AND 1 THEN sy=sy-1:IF sy(i THE 
N sy=25 

1548 IF j AND 2 THEN sy=sy+i: IF sy)25 TH 
EN sy=1 

1558 IF j AND 4 THEN sx=sx-1: IF sx<Ci THE 
N sx=25 

1568 IF j AND 8 THEN sxesx+i:IF sx)25 TH 
EN sx=1 

1578 LOCATE sx,sy:PEN L:PRINT CHR®(22) IC 
HRS) "d"SCHRE(22) ICHRE(D) J 

1589 IF MIDs(bilds(sy,1),ax,i)=" " OR (g 
px(il=sx AND gpy(i)=sy) OR (gpx(2)=sx AN 
D gpy(Z)=sy) OR (gpx(3)=sx AND gpy(3)=sy 
) THEN 1668 

1599 IF MIDs(bilds(sy,1),ux,1)("a" THEN 
1449 

1689 IF MIDs(bilds(sy,1),sx,i)="a" THEN 

MIDSCbild6(sy,1),sx,i)="A":scoresscoret+i 
sszesz+1:50UND 1,59,2,15;5IF sz=steine(]) 
THEN 1639 ELSE 1448 

1618 IF MIDsibilds(sy,1),sx,1)C>"b" THEN 
1448 

1628 MIDs(bilds(sy,l),sx,1)="B";scoressc 

ore+(scoreö2) :sz=esz+1:50UND 1,25,2, 13: IF 
sz=steine(l) THEN 1639 

1639 SOUND 2,289,39,15:SOUND 2,190,30,15 
:SOUND 2,59,68, 15: BORDER ?:treeze=-L:!PEN 

#1,3: LOCATEH1, 39,24: PRINT#1, CHR® (249) I CH 

RS(Z41) I STRINGS (2,242) I CHRS(243) ICHRS (24 

2) ICHR® (244) 

1648 AFTER 30%539,8 GOSUB 1738:60T0 1449 
1658 GOSUB 1739:CLS:FOR i=1 TO 26:50UND 

4,278-1%10,58, 15: BORDER i:FOR j=1 TO 188 
:NEXT j,1:BORDER 9:60T0 1499 

1668 LOCATE sx,sy:PEN 3:IF MIDs®(bilds(sy 


‚I),sx,1L)C"a" AND MIDS(bilds(sy,1),sx,1) 2» 
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<>" " THEN PRINT CHR$(127)5 ELSE PRINT M 
ID$(bild$(sy,i),sx,1)5 

1678 sx=sxs(l)isy=sys(1):PEN 1:LOCATE sx 
‚sy: PRINT CHRS(ZZI ICHREL) H"d"SCHRE(22) 5 
CHR$(Q) 5: lives=lives-I: IF lives(i THEN 1 
678 

16808 FOR i=38 TO 308 STEP 39:SOUND 4,i,4 
‚1S:NEXT i:G0T0 1449 

1698 GOSUB 1739:CLS: INK 3,6,24: FOR i=1 T 
0 3:FOR j=3@ TO 399 STEP 39:SOUND 4,j,4, 
1S:NEXT j,i 

1788 PEN#1,3:LOCATE#1,7, 11: PRINT#1, USING 
"ARR"s;lives:LOCATEH1,5,16:PRINT#1, USING" 
RHHNHHR"S;score:IF score)high THEN high=s 
core 

1718 LOCATE#1,S, 21: PRINT#HL, USING" HHRHHHR 
"high 

1728 WHILE INKEYS$<)""SWEND:WHILE INKEY$= 
""SWEND: INK 3, 6: RETURN 

1738 dummy=REMAIN(8):BORDER 9:LOCATE#1,3 
8,24: PRINT#1,SPACES(7): treeze=d: RETURN 
1748 '’Daten fuer Display Level I 

1750 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1768 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1778 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1788 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1798 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1808 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1819 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

18229 DATA aaaaaabaaaaaaaaaaaaaaaaaa 

1839 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1849 DATA aaaaaaaaaasaaaaaaaaaaaaaaa 

1858 DATA aaaaaasaaaaaaaaaaaaaaaaaaa 

1849 DATA aaasaaaaaaaasaaaaaaaaaaaaa 

1870 DATA aaasaaaaaaaaaaaaaaaaaaaaa 

1880 DATA aasaaaaaaaaaaaaaaabaasaaa 

1899 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

19789 DATA aasasaaaaaaaaaaaaaaaaaaaaa 
1918 DATA aaaaaaaasaaaaaaaaaaaaaaaaa 
1928 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 
1939 DATA aaaaaaaaaasaaaaaaaaaaaaaa 
1948 DATA aaaaaabaaasaaaaaaaaaaaaaa 
19528 DATA aaaaaaaaaaaaaaaaaaaaaaaaa 

1968 DATA aaaaaaaasaaaaaaaaaaaaaaaaa 
1979 DATA aaaaaaaaaaaaaaaaaaaaaaasaa 
1988 DATA aaaaasaaaaaaaaaaaaaaaaaaa 
1999 DATA aaaaaaaaaa:aaaaaaaaaaaaaa 
2009 DATA 1,1,10,190,20,20,15,24,625 
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Fortsetzung von Seite 32 


Geistern erscheinen Ziffern. Pro Runde verfolgen 

Sie drei dieser giftgrünen Gestalten. Denken Sie dar- 
an, auch die Nummer ] bis 3 zu setzen. Wenn Sie eine 
bereits vorhandene Ziffer eingeben, verändert sich die 
Startposition des entsprechenden Mauergeistes. 
Jonny Brick kann natürlich nur einmal gesetzt wer- 
den, und zwar auf eine Mauer. Er darf nie ins Leere 
treten, im Gegensatz zu den Geistern, die auch über 
dem Abgrund schweben können. 


Symbol E hat eine Sonderfunktion: Damit wird das 
ganze Spielfeld gelöscht. Mit X wird die Erstellung 
beendet. Nach einer kurzen Pause erscheint darauf- 
hin die Frage ‘“Save new Levels?“. Wenn Sie mit 

Y (für Yes) antworten, müssen Sie noch einen Datei- 
namen eingeben. Vergessen Sie nicht, eine Diskette 
einzulegen! 

Gespielt wird wie folgt: Mit dem Joystick lenken Sie 
Jonny Brick über die Mauern, wobei jeder berührte 
Ziegel sein Aussehen verändert. Dabei werden Sie je- 
doch von den Mauergeistern verfolgt. Sie haben ledig- 
lich den Vorteil, den Bildschirm auf einer Seite ver- 
lassen und gegenüber wieder auftauchen zu können. 
Außerdem helfen Ihnen die Energieblöcke. Wenn Sie 
einen davon berühren, werden die Geister für die 
nächste halbe Minute eingefroren. 

Sobald ein Spielfeld vollständig abgegangen ist, geht 
es — mit Punktebonus — in den nächsten Level. 
Nicht definierte Spielstufen werden dabei natürlich 
übersprungen. Das Spiel ist beendet, sobald Sie durch 
Berührung mit den Geistern oder Tritte ins Leere alle 
drei Leben verloren haben. Nach einem Tastendruck 
erscheint wieder die Auswahl. 

Weitere Einzelheiten der Bedienung werden Sie beim 
Umgang mit dem Programm selbst herausfinden. Hier 
noch ein paar Hinweise zum Eintippen. Speichern 
Sie das Programm vor jedem Probelauf, da die Klein- 
buchstaben a bis d verändert werden. Läuft es durch 
einen Tippfehler doch nicht, einfach die Tasten 
CTRL-SHIFT-ESC drücken, also den CPC zurück- 
setzen. Dann Programm neu laden (mit LOAD“..., 
nicht RUN“...), auflisten lassen und Fehler korrigie- 
ren. Die Zuweisung “bild$(....)=“" mit dem langen 
Leerzeichen-String dahinter, enthalten genau 25 Leer- 
zeichen. Dies nur, um Ihnen das Zählen zu ersparen. 


GIRO 


Kontrollieren Sie Ihre Bank und vermeiden Sie das 
„Soll“. Mit dem Listing „Giro“ können Sie immer 
Ihren aktuellen Kontostand erfahren. Dabei handelt 
es sich nicht um eine komplizierte Buchführung, 


Name: Jojo 

Konto_Nr.: 123456789 

Bankleitzahl: 987654321 

Kreditinstitut: ABCD 

Text Umsatz +/- 

1 Einzahl #xxx5000. 

2 Bchsrusisung Pete 

3 Auszahlung %x%x%—- 300.08 

4 Ueberweisumg #2%#-189.08 

5 Einzahlung waunn„”55.67 
Kontostand: 3#%%%3332.67 

<1> Eingabe (2) Aendern (3> Ende 


sondern es werden schnell und übersichtlich die letz- 
ten fünf Kontobewegungen aufgezeigt. Durch die 
Menüführung ist das Programm einfach zu bedienen. 
Dies ist insofern wichtig, damit Sie Ihre Eingaben 
nicht herauszögern und der Kontostand damit 

seine Aktualität verliert. 

Schneider aktiv wünscht Ihnen immer eine Mark 
mehr auf der Bank, als Sie benötigen. 


36 


| LISTING 


10 RRRRRRHRRRRRRBRHHHRHRRHRHHRHHBHHBE 
32°’ % BIRO * 
u’ % geschrieben von % 
sg’ % Thomas Hahn * 
„’% tuer * 
188 '% Schneider aktiv * 
118 ’% EPG 464 /669/6128 % 


198 "Titelbild 

158 MODE 1:INK 2,26: INK 1,1:INK 2,9,24:1 
NK 3,6: BORDER 1 

168 PAPER B:PEN 1 

178 LOCATE 16,5:PRINT"G I R 0" 

189 LOCATE 16,6:PRINT STRINGS(7,CHRB(134 


198 LOCATE 15,12:PRINT CHRS(164)+" 1986 


288 PEN 3:LOCATE 135,15: PRINT"HAHN-Soft” 
218 PEN 2:LOCATE 8,23:PRINTTTASTE D 
RUECKEN" 

229 CALL KBB18 

238 'Einleitungstext 

248 CLS:PEN I 


259 LOCATE 3,2:PRINT" Mit GIRO koennen 


Sie immer Ihren aktuellen Kontos 
tand und die letzten fuent Bewegungen 
auf Ihrem Konto abrufen.” 


268 PRINT: PRINT" 
rammes ist durch 
fach und 

eine Anleitung." 
278 PRINT: PRINT® 
mit" 

288 PEN 3:PRINT:PRINT" 
L] 


Die Benutzung des Prog 
Menufushrung recht ein 
benoetigt eigentlich k 


Also viel Spass 
GIRO 


298 LOCATE 18,18: PRINT"(N>eue Datei anle 

gen" 

388 LOCATE 12,28: PRINT"oder" 

318 LOCATE 12,22: PRINT"(a>lte Datei lade 

n ?“ 

329 as=INKEY$: IF a$="" THEN 328 

338 IF aß="N" OR aß="n" THEN 349 ELSE IF 
aß="a" OR at="A" THEN 439 

349 ’neue Datei anlegen 

338 CLS:PEN 1 

358 LOCATE 2,2:INPUT"Geben Sie bitte Ihr 

en Namen ein: "names 

378 CLS:LOCATE 2,2: INPUT"Geben Sie bitte 
Ihre Kontonummer ein: "  konto® 

389 CLS:LOCATE 2,2: INPUT"Geben Sie bitte 
die Bankleitzahl Ihrer Bank ein: ",blz# 
379 CLS:LOCATE 2,2: INPUT"Geben Sie bitte 
den Namen Ihres Kredit- institutes ein: 
"banks 

aaa CLS 

a19 LOCATE 2,2:PRINT"Name: "Iname® 

428 LOCATE 2,4: PRINT "Konto-Nr.: "jkonto® 

438 LOCATE 2,6:PRINT"Bankleitzahl: "jblz 

% 

449 LOCATE 2,8: PRINT"Kreditinstitut: *"jb 
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ank® 

459 LOCATE 3,12:PRINT"Alles richtig ??7?" 
469 a@=INKEYS:IF aß="" THEN 468 

478 IF a8="J" OR a$="j" THEN 568 ELSE IF 
aßz"N" OR as="n" THEN 348 

489 'alte Datei laden 

498 CLS:PEN I 

s28 LOCATE 2,2: INPUT"Dateinane ? ",x% 


318 CLS:PEN 3:LOCATE 3,14: PRINT" Legen 
Sie die Diskette mit der ents 
prechenden Datei ein und dru 


ecken Sie eine Taste !" 

528 CALL &BBi8 

338 OPENIN x#+".gir" 

342 INPUT #9, name®, konto®, banks, biz#, ti® 
‚t28,136,148,138,ul,u2,u3,u4,uS,kontosta 
nd 

558 CLOSEIN:GOTO 382 

S6d 'menu 

370 time etz "IE N a Et ey 
129: u2=8: u3=d: u4=9: uS=Q: kontostand=d 

388 CLS:PEN 1 


S?8 LOCATE 3,2: PRINT"Name: "jname® 

688 LOCATE 3,3: PRINT"Konto-Nr.: "Ikonto® 
618 LOCATE 3,4: PRINT"Bankleitzahl: "jblz 
s 

628 LOCATE 3,3; PRINT’Kreditinstitut: "Ib 
ank® 

638 LOCATE 3,7: PRINT'"Text" 

648 LOCATE 27,7: PRINT"Umsatz +/-" 

658 LOCATE 3,9: PRINT"L":LOCATE 93,10: PRIN 
T"Z2":LOCATE 3, 11:PRINT"3":LOCATE 3,12: PR 


INT"4":LOCATE 3,13: PRINT"S" 

668 LOCATE 14,15: PRINT"Kontostand! 
ING’ HAHN. HH" I Kontostand 

678 LOCATE 3,17: PRINT"<1) Eingabe (2) A 
endern <(3> Ende" 

#88 LOCATE 3,9: PRINT ti® 

#P9 LOCATE 3,1R: PRINT t286 

?88 LOCATE 5,11: PRINT t3% 

7128 LOCATE S,12:PRINT t48 

728 LOCATE 3,13: PRINT t356 

738 LOCATE 27,9:PRINT USING "RrHHHuhh. Hi 
"sul 

748 LOCATE 

#"ju2 

738 LOCATE 

#"ju3 

768 LOCATE 
#"ju 

778 LOCATE 
#"ju3 
788 a8=INKEYS:IF asc"i" OR a8)"3" THEN ? 

88 

790 IF as="1" THEN 829 

8098 IF as="2" THEN 96% 

819 IF ak="3" THEN 1122 

828 'Eingabe 

838 LOCATE 3,16: PRINT" 
<2> Einzahlung 


"ıU5 


27,18: PRINT USING "AHHHnnn.H 
27,112 PRINT USING "RHHHnHnn.h 
27,12: PRINT USING "IRHHnHäk.h 


27,13:PRINT USING "HEHHHHnk.H 


<1> Veberweisung 
x3> Auszahlung" 


| LISTING | 


849 a$=INKEYS:IF a8<"1" OR a8)"3" THEN 8 

48 

659 IF a6="i" THEN x6="Ueberweisung" 

868 IF a$="2" THEN x$="Einzahlung” 

878 IF as="3" THEN x$="Auszahlung" 

868 IF t36C>"" THEN tiW=t2u: t2e=t3e: t3ee 
tag: tiger 5 Im" "uleu2: u2=eu3: u3eud ug 

us:us=g 

698 IF tis="" THEN tis=x# ELSE IF t26="" 
THEN t26=x# ELSE IF t36="" THEN t36=x8 

ELSE IF t46="" THEN t4=x ELSE IF t5g=" 
" THEN t5sex® 

989 LOCATE 3,19: INPUT"Betrag: ",b 

918 IF x@="Auszahlung" OR x#="Ueberweisu 
ng" THEN b=-b 

929 k=skontostand 

938 kontostand=k+b 

949 IF ul=8 THEN ul=b ELSE IF u2=8 THEN 
u2=b ELSE IF u3=9 THEN u3=b ELSE IF u4=9 
THEN u4=b ELSE IF uS=9 THEN uS=b 

959 GOTO 388 

9689 'Aendern 

978 LOCATE 3,18: PRINT" 
> Veberweisung 

3> Auszahlung" 

989 as=INKEYS:IF a%c"1" OR a8)"3" THEN 9 
89 

998 IF a$="1" THEN e$="Ueberweisung" 
198988 IF a$="2" THEN e$="Einzahlung" 

1819 IF a%="3" THEN ef="Auszahlung" 

1828 LOCATE 3,21: INPUT"Neuer Betrag :",u 
1939 IF ef#="Ueberweisung" OR e®%="Auszahl 
ung" THEN us-u 

1949 LOCATE 3, 22: PRINT" 
sollen die geaenderten 
" 

1958 as=INKEY#: IF asl"i" OR a8)"S" THEN 
1858 

18648 kskontostand 

1979 IF a6="1" THEN kontostand=k-ul+usti 
Ke@$: ul=u:G0T0 3889 

1088 IF a6="2" THEN kontostand=k-u2+u:t2 
Gu@8: u2mu:G0T0D 389 

1898 IF a6="3" THEN kontostand=k-u3+u:t3 
Wua6:u3=u:60T0 389 

1108 IF a®="4" THEN kontostandek-u4+u:t4 
Wmaß; u4=u:G0TO 388 

1118 IF a6="5" THEN kontostand=k-uS+u:t3 
Sue: u5=u:GOTO 388 

1128 ’Ende u. saven 

1138 CLS 

1148 LOCATE 14,14: PRINT"WIRKLICH ?" 

1158 a@=INKEYS: IF as="" THEN 1158 

1168 IF a6="n" OR as="N" THEN 389 

1178 CLS 

1188 PEN 3:LOCATE 4,19: INPUT"Nane der Da 
tei ?’,n® 

1198 CLS:PEN 2 

1288 LOCATE 3,13: PRINT" Legen Sie bitte 
eine Diskette/Kassette ein dann T 


Neuer Text ? 1 
2) Einzahlung ( 


In welche Zeile 
Angaben ? (1-3) 


aste druecken !!!"® 

1218 CALL &BBi8 

1228 OPENOUT n$+",gir" 

1238 WRITE #9,name$, konto$,bank#,biz#, ti 
6,t26,136,148,156,ul,u2,u3,u4,uS, kontost 
and 

1248 CLOSEOUT 

1259 BASIC 


AMSTRAD ÜBERVORSICHTIG 


Nur wenigen ist bekannt, daß Amstrad bei den 
Netzteilen der PCs alles, was nur abgesichert wer- 
den konnte, auch abgesichert hat. Bei diesen 
„Sicherheitsmaßnahmen‘‘ war Amstrad aber über- 
vorsichtig. 
Deshalb haben einige der am Anfang ausgelieferten 
Geräte die sehr unangenehme Eigenschaft, plötzlich 
mitten im Programmlauf abzuschalten. Das heißt, 
der Bildschirm wird dunkel und nichts geht mehr. 
Auch die Betriebsanzeige, die rote Leuchtdiode, 
die das Vorhandensein der Betriebsspannung an- 
zeigt, erlischt. Hat man einige Zeit Geduld und 
schaltet den Hauptschalter am Monitor aus, dann 
„blitzt“ nach kurzer Zeit die Betriebs-LED auf und 
der PC kann wieder eingeschaltet werden. Nun 
kann zwar wieder gestartet und weitergearbeitet 
werden, aber eben wieder nur bis zum nächsten 
Abschalten. 
Dieser Ausfall tritt vor allem dann auf, wenn, bei- 
spielsweise bei Spielen, „Umschaltungen“ auf ein 
anderes Bild erfolgen. Oder auch, nachdem der PC 
viele Dinge gleichzeitig ansprechen mußte, also 
z.B. die Bildschirmkarte und die RAM-Floppy. Das 
Demonstrationsprogramm „Concorde“ ist gerade- 
zu prädistiniert, den Fehler zu erzeugen. Aber 
auch mit Basicprogrammen konnte er schon pro- 
duziert werden. 
Obwohl Schneider nur wenige Geräte, die diesen 
Fehler haben, ausgeliefert hat und auch die mei- 
sten dieser PCs bereits geändert wurden, sind ver- 
mutlich doch noch einige bei Kunden, die diesen 
Effekt bisher auf Bedienungsfehler geschoben ha- 
ben. Diesen empfehlen wir, daß sie sich an ihren 
Fachhändler wenden, der durch den Einbau eines 
PandenloR den Fehler in kurzer Zeit beheben 
ann. 
Wer sich selbst helfen will, kann diesen zusätzli- 
chen Kondensator auch selbst einbauen, aber Ach- 
tung: Die Garantie geht dann verloren! 


Hier die Angaben: 

Keramik-Kondensator 100 nF/35V 

Dieser Kondensator muß folgendermaßen einge- 
lötet werden: 

Monochrom-Monitor 

IC 503 von Pin 8 auf 9 


Farbmonitor 
IC 603 von Pin 13 auf 14 


Die IC-Bezeichnungen sind auf der Netzteil-Pla- 
tine aufgedruckt. 

en diesem Einbau tritt der Fehler nicht mehr 
auf! 
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ANZEIGENSERVICE 


Die große Börse für jeden Zweck in SCHNEIDER AKTIV. Kostenlos für Privat-Inserenten. Spottbillig für gewerbliche Anbieter. Ein- 
fach Coupon ausschneiden, fotokopieren o.ä., ausfüllen und ab die Post — Freimachen nicht vergessen! — Unsere Adresse steht 
auf dem Coupon, ebenso die Preise für gewerbliche Anbieter! Achtung! Wir weisen ausdrücklich darauf hin, daß wir offensicht- 
lich gewerbliche Anzeigen nicht kostenlos veröffentlichen und uns jedweden Abdruck kostenloser Anzeigen vorbehalten müssen, 
insbesondere, wenn deren Inhalt gegen geltendes Recht verstößt. Private Chiffreanzeigen werden nicht aufgenommen. Für Pri- 
vatanbieter: etwa bis zu acht Zeilen a 28 Anschläge. Für gewerbliche Anbieter: 5 DM p.mm. bei beliebiger Größe. 


Da DT En Re DR Dr a I DI IP aD ED U 
BI PR FEPEIFTFEEFETEFFERF Er 


SCHNEIDER AKTIV Name 
Anzeigenabteilg. Vorname 
Postfach 1107 Straße /Hausnr. 
8044 Lohhof PLZ/Ort 


nn > 


DAS SONDERANGEBOT: 
PRIVATE KLEINANZEIGEN 
SIND KOSTENLOS 


Das bietet Ihnen ab sofort SCHNEIDER AKTIV: KLEINAN- 
ZEIGEN SIND KOSTENLOS FÜR PRIVATANBIETER! Su- 
chen Sie etwas, haben Sie etwas zu verkaufen, zu tau- 
schen, wollen Sie einen Club gründen? Coupon ausfüllen, 
auf Postkarte kleben oder in Briefumschlag stecken und 
abschicken. So einfach geht das. Wollen Sie das Heft 
nicht zerschneiden, können Sie den Coupon auch fotoko- 
pieren. Oder einfach den Anzeigentext uns so schicken, 
auf Postkarte oder im Brief. Aber bitte mit Druckbuchsta- 
ben oder in Schreibmaschinenschrift! 

Und: Einschließlich Ihrer Adresse und /oder Telefonnum- 
mer sollten acht Zeilen a 28 Anschläge nicht überschrit- 
ten werden. 

ACHTUNG: WICHTIGER HINWEIS! 

Wir veröffentlichen nur Kleinanzeigen privater Inserenten 


kostenlos, gewerbliche Anzeigen kosten pro Millimeter 
DM 5,00 plus Mehrwertsteuer! 

Wir versenden für Privat-Inserenten keine Beleg- 
Exemplare! 

DIE INSERTION IST NICHT VOM HEFTKAUF ABHÄNGIG! 
Chiffre-Anzeigen sind nicht gestattet! Wir behalten uns 
vor, Anzeigen, die gegen rechtliche, sittliche oder sonsti- 
ge Gebote verstoßen, abzulehnen! 

Anzeigenabdruck in der Reihenfolge ihres Eingangs, kein 
Rechtsanspruch auf den Abdruck in der nächsten Ausga- 
be! 

Wir behalten uns vor, Anzeigen, die nicht zum Themen- 
kreis des Heftes — Computer — gehören, nur insoweit 
zu berücksichtigen, wie es der Umfang des kostenlosen 
Anzeigenteils zuläßt. 
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NUTZEN SIE UNSEREN BEQUEMEN POSTSERVICE 


KOMMT | 
REGELMÄSSIG 
ZU IHNEN 


INS HAUS 


Das unabhängige Magazin 
für Schneider-Computer 


Finden Sie Ihre SCHNEIDER AKTIV nicht am Kiosk? 
Weil sie schon ausverkauft ist? Oder ‚‚Ihr‘‘ Kiosk 
nicht beliefert wurde? Kein Problem! Für ganze 60 
DM liefern wir Ihnen per Post zwölf Hefte ins Haus 
(Ausland 80 DM). Einfach den Bestellschein aus- 
schneiden — fotokopieren oder abschreiben, in ei- 
nen Briefumschlag und ab per Post (Achtung: Porto 
nicht vergessen). SCHNEIDER AKTIV kommt dann 
pünktlich ins Haus. 


GARANTIE! 

Sie können diesen Abo-Auftrag bin- 
nen einer Woche nach Eingang der 
Abo-Bestätigung durch den Verlag 
widerrufen — Postkarte genügt. An- 
sonsten läuft dieser Auftrag jeweils 
für zwölf Ausgaben, wenn ihm nicht 
vier Wochen vor Ablauf widerspro- 
- chen wird, weiter. 


L 


ABO-SERVICE-KARTE 


Ich nehme zur Kenntnis, Ja, ich möchte von Ihrem Angebot Ausgaben an untenstehende An- 
daß die Belieferung Gebrauch machen. schrift. Wenn ich nicht vier Wochen 
erst beginnt, wenn die Bitte senden Sie mir bis auf Widerruf vor Ablauf kündige, läuft diese 
Abo-Gebühr dem Verlag ab sofort jeweils die nächsten zwölf Abmachung automatisch weiter. 
zugegangen ist! Name 

Vorname 

Straße /Hausnr. 

PLZ/Ort 

Ich bezahle: 

U] per beiliegendem Verrechnungsscheck 

[] gegen Rechnung 

[] bargeldios per Bankeinzug von meinem Konto 

bei (Bank) und Ort 

Kontonummer 

Bankleitzahl 

(steht auf jedem Kontoauszug) 
SCHNEIDER AKTIV en 
Abo-Service 3/87 eh 
Postfach 1107 Von meinem Widerspruchsrecht habe ich Kenntnis genommen. 
8044 Unterschleißheim Unterschft __[_OO 3/87 
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PROGRAMMSERVICE 


Hiermit bestelle ich in Kenntnis Ihrer Verkaufsbedingun- 
gen die Listings dieses Heftes auf 


[] Kassette (20 DM) [] Diskette (30 DM) 


Ich zahle: (Zutreffendes bite ankreuzen!) 
per beigefügten Scheck [] Schein U] 


Gegen Bankabbuchung am Versandtag U] 
Meine Bank (mit Ortsname) 

Meine Kontonummer 

Meine Bankleitzahl 

Vorname 

Str./Nr. 


(steht auf jedem Bankauszug) 
Nachname 


PLZ/Ort 3/87 


Verkaufsbedingungen: Lieferung nur gegen Vorkasse oder Bankabbuchung. Keine Nachnahme. 
Umtausch bei Nichtfunktionieren. 


Unterschrift 
Bitte ausschneiden und einsenden an 


SCHNEIDER AKTIV 
KASSETTENSERVICE 3/87 
Postfach 1107 

8044 Unterschleißheim 


----- 1 DI 
LESER WERBEN LESER 


GEWINNEN SIE EINE COMPUTER- 
UHR! Und zusätzlich eventuell 
noch ein großes Commodore-Buch. 
Oder ein Paket Disketten. ODER 
AUCH EINEN SCHNEIDER DRUK- 
KER — ODER EINE DISKETTEN- 
STATION! Wie? Sie werben einen 
Abonnenten. Dann haben Sie auf 
jeden Fall schon die Computer-Uhr 
gewonnen. Zusätzlich verlosen wir 
unter allen, die mitmachen, jeden 
Monat vier weitere wertvolle Preise. 
Und alle sechs Monate gibt es ei- 
nen Hauptpreis unter allen Abo- 
Werbern zu gewinnen. Also: Mit- 
machen. Mitgewinnen. 


Ja, ich mache mit beim Abo- 
Wettbewerb. Ich habe 


Herrn /Frau 
Straße /Hausnr. 


PLZ/Ort 


als neuen Abonnenten für SCHNEI- 
DER AKTIV geworben. 


Der neue Abonnent war bisher 
noch nicht Bezieher dieser Zeit- 
schrift. 

Als Prämie erhalte ich nach Ein- 
gang des Abo-Entgeltes auf jeden 
Fall eine Computer-Uhr, wie abge- 
bildet, und nehme zusätzlich noch 
an der Verlosung des Monats so- 
wie der halbjährlichen Hauptprei- 
se teil. Mir ist bekannt, daß der 
Rechtsweg ausgeschlossen ist. 
Meinen Preis senden Sie an 


Name 

Straße /Hsnr. 

PLZ/Ort 

(Bitte ausschneiden und zusam- 


men mit der Abo-Bestellkarte links 
einsenden!) 3/87 


DM 14,80 
ÖS 124 
SFR 14,80 


ES 
SEEN 


8 
SID 


SETEN, 


: Anwender- 
rogramme 


LISTING 


WERBUNG 


„Werbung“ nannte Christian Knöppler sein Listing, 
mit dem man eine vergrößerte Laufschrift auf dem 
CPC bringen kann. Dabei sind allerdings noch andere 
Anwendungen denkbar. Vom eigenen Titelvorspann 
für ein Programm (beachten Sie die Länge der 
Schrift) bis hin zum Partygag, bei dem ab 4 Uhr früh 
die Besucher zum Aufbruch aufgefordert werden. 

Da es sich um ein Programm mit Maschinencode han- 
delt, ist die Zeichenverschiebung völlig ruckfrei und 
dies trotz der 64fachen Vergrößerung der Buchsta- 
ben. Allerdings schränkte der Maschinencode den Ge- 
brauch des Programmes auf den CPC 464 ein. 

Die Bedienung ist denkbar einfach. Die Hauptmenü- 
zeile beinhaltet die Optionen Edit, Save, Load und 
Run. Unter Edit wird ein einfacher, aber streng bild- 
schirmorientierter Editör geboten, der die Eingabe ei- 
nes Werbetextes ermöglicht. Beim Verlassen dieses 
Editors werden alle Zeichen als Laufschriftinforma- 
tion übernommen, die zwischen der ersten Zeichen- 
position des Editors und der Position des Cursors ste- 
hen. Was rechts und unter dem Cursor steht, wird 
ignoriert. Sie haben die Möglichkeit, einen bis zu 
1840 Zeichen langen Text einzugeben. Die Zeichenfol- 
ge wird wiederholt, wenn das Ende erreicht ist. 

Mit Save können Sie Ihren Text auf Diskette spei- 
Se mit Load einen bereits erstellten Text ein- 
esen. 

Nach Eingabe von R für Run wird der Text in Groß- 
buchstaben über den Bildschirm gescrollt, bis das 
Programm, durch Tastendruck unterbrochen, in das 
Hauptmenü zurückkehrt. 
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RR RRRARRRHRBRRHRBHHHHHHHHHHHHHHHE 
2 '%* Grosse Laufschrift * 
3 ’% von %* 
4 ’%* Christian Knoeppler * 
53’%+ fuer * 
6 ’%* Schneider aktiv * 
7’% CPC 464 * 
8 RRRRRRRRRRRRRHRRHRRRSHHHRRIHBRRRHHNK 
318 DEFINT a-z 

328 LET Start=23794 


LET Adresse=Start 

MEMORY Start-i 

PRINT "M-Code wird eingelesen." 
PRINT "Bitte warten."} 

LET Zei lennummer=19909 

WHILE Zeilennummer (=19969 

PRINT CHRB(8) J". "ICHRS(143) 

LET Wert=8 

FOR k=1 TO 16 

READ as 

LET byte=VAL("K"+a%) 

LET Wert=Wert+Byte 

POKE Adresse, Byte 

LET Adresse=Adresse+i 

NEXT k 

READ Pruef$ 

LET Pruefsumme=VAL("&"+Pruef#) 

IF Pruefsumme=Wert THEN GOTO 5498 
PRINT CHRS(8) ISPACES(L) 

528 PRINT TAB(S)ICHR#(24)5"Datafehler in 
Zeile Nr.:"jZeilennummersCHRS (24) 

539 END 

542 LET Zeilennummer=Zeilennummer+1® 
352 WEND 

569 PRINT CHRS(8)5".MC ok!" 

578 INPUT "Programm ausfuehren (J/N)"}An 
twort® 

589 LET Antwort$=LEFT#(UPPER®(Antwort#), 
1) 

598 IF Antwort$="J" THEN CALL Start 

689 INPUT "M-Code abspeichern (J/N) "jAnt 
wort$ 

#18 LET Antwort#=LEFT$(UPPER#(Antwort®#), 
ı) 

628 IF Antwort#‘>"J" THEN END 

63@ INPUT "Name des Binaertfiles"}Name®s 
648 SPEED WRITE 8 

659 SAVE ""+Name®,B,Start, 1609, Start 

668 STOP 

#78; 

180080 DATA 11,29,20,21,00,AS,CD,AB,BB,CD 
‚F4,5E,CD,63,BC,CD,2894 

180818 DATA FF,BB,CD,200,BB,3E,22,CD,9E, BC 
‚21,81,21,21,57,35D,25F1 

18028 DATA CD,33,61,CD,96,BB,21,08,00, 21 
‚E7,62,ED,B1,22,E2,9782 

19939 DATA FE,65,20,05,CD,63,5F,18,D9,FE 
‚72,28,11,3E,82,CD,06Bö6 

18948 DATA QE,BC,3A,EF,62,FE,FF,28,C9,CD 
‚s9,5E,18,C4,FE,73,298B 


LISTING 


19058 DATA 20,95,CD,74,5D,18,BB,FE,6C,28 
‚08,3E,FF,32,EF,62,06E8 
19968 DATA CD,E9,5D,18,AD,45,29,64,69,74 
‚20,20,53,29,61,76,8626 
10078 DATA 65,20,28,4C0,29,6F,61,64,2C, 28 
‚52,29,75,6E, 2E, 20, 8452 
10068 DATA 8F,28,CD,14,BC,21,AD,5D,91,19 
‚21,C0,33,61,CD,96,05A6 
12098 DATA BB,3E,FF,CD,6B,BC,26, 08, 21,AS 
‚5D,11,7C,82,CD,8C,0785 
10108 DATA BC,21,30,63,11,60,27,01,00,08 
‚3E,16,CD,98, BC,CD,0543 
19118 DATA 8F,BC,C9,54,45,58,54,46,49,4C 
‚45,44,72, 75,65, 63, B66C 
19120 DATA 6B,65,6E,20,53,69, 65,28, 62,69 
‚74,74,65, 20,52, 45, 056E 
10138 DATA 43,29,75,6E,64,20,50,40,41,59 
‚20,20,64,61,6E,61,04E9 
10148 DATA 63,68, 20,69,72,67,65,6E, 64,65 
‚69,6E,65, 20,54, 61, 05DA 
10158 DATA 73,74,65,2E,20,8F,28,CD, 14,BC 
‚21,12,5E,81,19,21,0472 
10168 DATA CD,33,61,CD,06,BB,3E,FF,CD,6B 
‚BC,06,98,21,AS,5D,2751 
10178 DATA 11,7C,82,C0,77,BC,21,30,63,CD 
‚83,BC,CD,7A,BC,C9,28A7 
10180 DATA 44,72,75,65,63,6B,65,6E, 20,53 
,69,65,20,62,69,74,05D1 
10190 DATA 74,65,20,64,69, 65, 20,59, 40,41 
‚59,2D,54,61,73,74,054A 
10208 DATA 65,20,20,64,61,6E,61,63,68, 28 
69,72,67, 65, 6E,64,05A9 
10218 DATA 65,69, 6E,65,20,54,61,73,74,65 
‚2E,20,8F,00,21,3C,84FC 
10228 DATA 63,22,FA,62,7E,06, 20,90, 26,28 
‚6F,11,A8, 6A, 29,29,0S1F 
18238 DATA 29,29,29,29,19,EB,20,06,28,C5 
‚D5,11,74,02,21,80,0478 
10248 DATA 82,CD,1D,BC,CD,26, BC,Di,AF,Qi 
,20,08,77,89, 77,89, 85DE 
18258 DATA 77,09,77,89,77,09,77,09,77,89 
‚77,06, 08,C5,CD, 26, 04BD 
10248 DATA BC, 1A,01,08,08,77,29,77,89,77 
‚89,77,89,77,89,77,03D6 
19278 DATA 29,77,09,77,13,C1,18,E5,D5,CD 
‚2B,BC,23,CD,25,BC,86E3 
10288 DATA 3A,F8,62,8F,32,F8,62,DC,19,BD 
‚DC,19,BD,D1,C1,18,8835 
10298 DATA AB,CD,@9,BB,B7,C9,2A,FA, 62,23 
‚22, FA, 62, 7E,06,20,277B 
10300 DATA 90,26,08,6F,11,A8,6A,29,29, 29 
‚29,29,29,19,EB,D5,0517 
10318 DATA 2A,F4,62,ED,5B,FA,62,ED,52,D1 
‚7C,B5,02,68,5E,03,29B2 
10328 DATA 59,5E,3E,20,16,5F,21,28,AS,DD 
‚ES, DD, 21, AB, 6A, 86, B61F 
18339 DATA 08,05, 7E,96,08,27,F5,3E, 28, 38 
‚@2,3E,FF,DD,77,20,0356 
10349 DATA DD,23,F1,18,F0,23,C1,18,E8,3C 
‚15,20,E2,DD,Ei,11,87EF 


44 


18350 DATA AB, 6A, 21,FC,62,96,5F,C5,ES,DS 
‚06,08,05, 06,28, 1A, 8678 
10368 DATA 77,05,21,08,28,909,C1,13,12,F5 
‚21,3F,28,ED,42,01,0557 
10378 DATA 18,EA,62,6B,11,48,00,ED,52,54 
‚5D,21,FC,62,21,49,05C8 
10388 DATA 00,ED,B2,D1,62,6B,91,49,920,29 
‚54,5D,E1,C1,18,07,86AF 
10398 DATA C9,91,19,50,CD,BF,62,2A,E1,62 
‚22,F8,62,CD,E8,5F,0816 
10488 DATA 3A,EF,62,FE,FF,CC,54,68,AF,32 
‚EF,62,CD,26, BB, FE,89C6 
10418 DATA FC,29,16,CD,97,62,2A,E1,62, 11 
‚AQ,C2,ED,52, 11,30,0762 
10420 DATA 63,19,22,F4,62,CD,79,68,09,21 
‚04,090,21,E3,62,ED,d6BB 
10430 DATA B1,20,05,CD,FB,61,18,D4,FE,29 
‚20,88,CD,97,62,CD,87AD 
10448 DATA 43,61,18,C8,FE,19,20,08,CD,97 
‚62,CD,88,61,18,BC,079A 
18458 DATA FE,7F,22,05,CD,D4,61,18,B3,FE 
‚03, 20,@B,CD,97,62,0761 
10468 DATA CD,79,68,CD,E8,5F,18,A4,FE,13 
‚29,95,CD,54,69,18,0745 
18478 DATA 9B,CD,F6,68, 18,96, 3E,82, CD, BE 
‚BC,01,01,01,21,11,0578 
10489 DATA 68,CD,33,61,21,92,01,CD,BF,62 
‚26,59,C5,3E,9A,CD,0673 
10498 DATA 5D,62,01,12,F7,21,93,01,CD,BF 
‚62,CD,97,62,C9,45,274E 
10508 DATA 64,69,74,6F,72,34,20,5B, 43,54 
‚52,4C,5D, 2B, 43,29, 0598 
19510 DATA 60,73,20,49,29,6E,73,65,72,74 
‚20,53,29,68,6F,77,859F 
10520 DATA 5C,20,5B,43,40,52,5D,20,5B,44 
‚45,4C0,5D,20,5B,45,8482 
10530 DATA 53,43,5D,20,7B,43,75,72,73,6F 
72,68, 65,79, 73,7D,0645 
10549 DATA 2E,20,01,2F,27,21,48,09,22,El 
‚62,11,30,63, 1A,C5,84DA 
10559 DATA DS,CD,5D,62,D1,13,C1,9B,78, Bi 
‚28,F2,ED,4B,DF,62,08C5 
1056@ DATA CD,BF,62,CD,97,62,C9,01,2F,97 
‚21,9F,00,22,E1,62,8799 
18570 DATA 11,30,63,F3,C5,D5,2A,E1,62,23 
‚22,E1,62,CD, AB, 68,87FF 
19588 DATA D1,3A,F9,62,12,13,C1,0B,78, Bi 
‚20,E8,FB,C9,11,00,875D 
10598 DATA AS,ED,53,F6,62,91,00,08,3E, 28 
‚32,F9,62,ED,5B,F6,876F 
10608 DATA 62,2A,E1,62,1A,BE,29,29, 13,99 
‚1A,BE,20,23,13,29,0443 
10610 DATA 1A,BE,20,1D,13,29,1A,BE,28,17 
‚13,99, 1A, BE,20,11,0365 
10620 DATA 13,09, 1A, BE,20,0B,13,09, 1A, BE 
‚20,05,13,09,1A,BE,832C 
10638 DATA C8,2A,F6,62,11,98,90,19,22,F6 
‚62,34, F9,62,3C,FE,86C5 
10648 DATA FF,28,B7,C9,ED,4B,DF,62,F5,78 
‚FE,59,28,03,04,18,881A 
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10658 DATA QA,06,01,80,79,FE,19, 28,02, E 
‚19,ED,43,DF, 62,78, Q4DF 
10660 DATA FE,52,28,15,96,91,79,FE,19,28 
‚@E,F1,CD,97,62,01,0688 
10670 DATA 03,81,CD,BF,62,CD,97,62,C9, Fl 
‚CD,5D,62,CD,97,62,88C4 
10688 DATA C9,CD,BF,62,7E,23,ES,F5,CD,5D 
‚62,F1,E1,B7,28,F4,QASB 
10698 DATA CP,2A,F@,62,ED,5B,E1,62,ED,52 
‚44,4D,ED,5B,F8,62,293A 
10708 DATA 2A,F®,62,13,03,ED,43,F2,62,86 
‚28,CD,19,BD,ES,D5,8761 
19710 DATA C5,ED,4B,F2,62,ED,B8,C1,Di,Ei 
‚11,00,08,19,54,5D,084C 
18728 DATA 13,10, EB,2A,E1,62,3E,20,CD,5D 
‚62,ED,4B,DF,62,CD,@7AB 
10738 DATA BF,62,CD,97,62,C9, 2A,E1,62,E5 
‚3E, 20, 2A,F9,62,22,87FE 
18749 DATA E1,62,C0D,5D,62,E1,22,E1,62,2A 
‚F0,62,ED,5B,E1,62,0P1C 
10758 DATA ED,52,44,4D,ED,43,F2,62,2A,El 
‚62,23,54,5D, 1B,06,06B6 
10768 DATA 28,C5,E5,ED,4B,F2,62,ED,BB,El 
‚11,00,08,19,54,5D,979F 
18778 DATA 1B,C1,18,ED,CD,19,BD,ED,4B,DF 
‚62,CD,BF,62,CD,97,2947 
19788 DATA 62,C9,ED,4B,DF,62,CD,BF,62,3E 
‚20,CD,5D,62,ED,4B,28B4 
187998 DATA DF,62,95,78,B7,20,0B,06, 58, 0D 
‚79, FE,02, 20,23, 81,24A8 
10820 DATA 03,01,CD,BF,62,CD,97,62,C9,C5 
‚FS,ED,4B,DF,62,CD, 8981 
18810 DATA BF,62,CD,97,62,ED,4B,DF,62,Fi 
‚DS, FE,F2, 20,93, 00,0944 
10828 DATA 18,13, FE,F1,28,83,8C,18,2C,FE 
‚F2,20,03,05, 18,05, 04A2 
10839 DATA FE,F3,29,91,24,78, 16,08, 92,28 
‚22,06,50,78,16,51,048D 
10840 DATA 92,20,02,96,01,79, 1E,02, 93,28 
‚02,0E,19,79,1E,1A,@2E1 
10850 DATA 93,20, 02,0E,03,78,FE,50, 20,08 
‚79, FE,19, 20,03, 01,0468 
10868 DATA 93,01,CD,BF,62,CD,97,62,D1,C1 
‚Cc9,2F,26,20,6F,29,2788 
10878 DATA 29,29, EB,21,F8,AB,ED,52,EB,2A 
‚E1,62,01,00,28, 1A, 06BB 
10888 DATA 77,13,89,1A,77,13,89,1A,77,13 
‚89,1A,77,13,29, 1A, 02B4 
10898 DATA 77,13,89,1A,77,13,89,1A,77,13 
‚29,14, 77, 2A,E1,62,23EB 
10988 DATA 23,22,E1,62,09,C5,11,00,08, 2A 
‚E1,62,7E,2F,77,19,25D9 
189718 DATA 7E,2F,77,19,7E,2F,77,19,7E,2F 
‚77,19, 7E,2F,77,19,04F4 
18928 DATA 7E,2F,77,19,7E,2F,77,19,7E,2F 
‚77,01,09,D5,E5,ED,87CF 
10930 DATA 43,DF,62,26,00,69,29,29,29,29 
‚54,50, 29, 29,19, 16, 03E9 
10949 DATA 08,58, 19, 11, AF,BF,19,22,E1,62 
‚E1,D1,C9,29,29,20,05E9 


10958 DATA 28, FO, Fi,F2,F3,45,65,53,73,4C 
‚60,52, 72,00, 00,00, 26B2 
10968 DATA 00,00, 00,20,20,0%, AA, 20,00,0%0 
‚20,00, 20,00, 20,00, 20AA 


RESET OHNE 
SPEICHERLÖSCHUNG 


Mit einem zweiten, ebenso kleinen wie hilfreichen 
Programm kann Gerald Steffens etwas zu den Nöten 
vieler Assemblerprogrammierer beitragen. Unter be- 
stimmten Umständen ist es nämlich möglich, sich mit 
einem Maschinenprogramm in einer Endlosschleife 
festzulaufen. Da hilft nur noch ein Ausschalten, oder 
wenn man Glück hat, dieses kleine Utility. Sofern ein 
Interrupt noch zugelassen wird, die Interruptroutine 
im RAM also noch nicht zerstört wurde, erfolgt in 
periodischen Abständen eine Abfrage der Tastatur, 
besonders natürlich der ESC-Taste. Wird dazu noch 
SHIFT und CTRL gedrückt, wird der ganze Rechner 
zurückgesetzt. Genau hier aber setzt das Programm 
ein. Der Zeiger für die Routine KM Test Break wird 
auf Gerald Steffens Routine umgebogen, wo sich eine 
abgewandelte Kopie von KM Test Break befindet, 
die den ursprünglichen Zustand (vor dem Interrupt) 
herstellt und den Sprung ins Basic-Rom einleitet. 
Wegen der Unterschiede in den ROM-Adressen gibt 
es je einen Ausdruck des Listings für den CPC 464 
und einen für den CPC 664/6128. 


VL RRRRRRRRRRRRRRRRRRBHRRIHHHHE 
2’ Gerald Steffens * 
3’% tuer * 
4 ’% Schneider aktiv * 
6 '% CPC 6664/6128 * 
7 RRRRARRRRRHIRBARHHRARHRRRHHEK 


18 FOR adr=&BAC7 TO KBAFC 
28 READ a®:POKE adr,VAL("K"+aß) 
38 NEXT 

48 DATA 21,CE,B0,22,EF,BD,C9,21 
=g DATA 3D,B6,CB,56,C8,79,EE, AB 
68 DATA C2,19,1E,C5,23,06,2A,8E 
78 DATA 2B,18,FC,C1,FE,A4,C2,19 
88 DATA 1E,B7,28,4F,CB,91,06,7F 
98 DATA ED,49,09,AF,32,2C,AE,Fl 
189 DATA CD,75,1E,D7,58,09 


2 RRRRRRHRRRRRRRRRHRRARHHHHHHN 
2’% Gerald Steffens * 
3’%* fuer * 
4 '% Schneider aktiv * 
“’* nur CPC 464 + 
7 BERRRRRRRRRRRRBARHRRRRBHBHR 


19 FOR adr=&BAC7 TO KBAFC 

28 READ as: POKE adr,VAL("K"+a®) 
38 NEXT 

48 DATA 21,CE,B®,22,EF,BD,C9,21 
sg DATA F3,B4,CB,56,C8,79,EE,Aß 
68 DATA C2,98,10,C5,23,96,0A,8E 
78 DATA 2B,18,FC,C1,FE,A4,C2,98 
80 DATA 1C,B7,28,4F,CB,91,06,7F 
98 DATA ED,49,DP,AF,32,45,AE,Fl 
199 DATA CD,ED,1C,D7,64,88 
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FOLIO 


Wer einmal einen Vortrag halten sollte oder die Auf- 
gabe hatte, einen Unterricht zu gestalten, der wird es 
zu schätzen wissen, grafische Darstellungen zur besse- 
ren Anschauung und Vertiefung des Unterrichtsstof- 
fes einsetzen zu können. Jeder moderne Unterrichts- 
raum verfügt über einen Overheadprojektor, mit dem 
man in der Lage ist, Klarsichtfolien an die Wand zu 
projizieren. Diese Folien werden ebenso wie eine Fo- 


tokopie hergestellt, nur wird nicht auf ein Blatt Papier 


kopiert, sondern auf eine Folie. Andererseits bleibt 
natürlich der Ausdruck auf Papier, als Einzelstück 
für einen Schriftsatz oder als Vervielfältigung für 
den Unterricht. 

Man kann nun mit mehr oder weniger Erfolg selbst 
grafische Darstellungen entwerfen und auf Folie ko- 
pieren. Wer das schon einmal gemacht hat, weiß, wie 
schwierig dies sein kann. 


leider Salschısunenons 


|.dass kam FOLIO alles 
| CL) FE 
Werner E.dı 


keit / Wiesbaden” 


EEE 


Pfeile in allen Crößen 
und Richtungen 


JRRBHERBEE 
KaRaR y 


Das Programm „Folio“ für den Schneider CPC 664/ 
6128 ist ein spezielles Grafikprogramm, das die 
wichtigsten Elemente zur Folienherstellung beinhal- 
tet. Nach dem Start kann man mit “h“ ein Hilfsmenü 


aufrufen, das die wichtigsten Arbeitsschritte erläutert. 


Man kann sich dieses Hilfsmenü übrigens jederzeit 
während des Zeichnens zeigen lassen. 

Im Arbeitsmodus erscheint in der linken Ecke des 
Bildschirmes ein kleiner Punkt. Das ist der Grafik- 
cursor. Er wird über die Pfeiltasten der Cursorsteue- 
rung bedient. Drückt man gleichzeitig die SHIFT- 
Taste, so bewegt sich der Grafikcursor in Zehner- 
schritten in die jeweilige Richtung. Dies ist besonders 
wichtig, wenn man bestimmte Abstände einhalten 
will. 


Drückt man einmal die COPY-Taste, so zeichnet der 

Grafikcursor eine Linie. Will man diesen Zeichen- 

modus wieder ausschalten, drückt man wieder die 

COPY-Taste. Der Cursor löscht auch eine Linie, so- 

fern er sich in diesem Modus befindet. Will man ihn 

über eine Linie führen, um z.B. in einen Rahmen zu 
gelangen, so schaltet man den Zeichenmodus ein, 
wenn der Cursor auf der Linie ist und aus, wenn er 
diese verläßt. 

Über die Pfeiltaste unter dem Pfundzeichen kommt 

man ins Menü. Bevor man jedoch eine Grafik auf- 

ruft, muß man die Größe eingeben. Das geschieht 
folgendermaßen: Der Grafikcursor wird in etwa an 
die Stelle gefahren, wo die Grafik stehen soll. Jetzt 
wird diese Position mit der Pfundtaste (über dem 

Pfeil mit SHIFT zu erreichen) markiert. Ein zweiter 

Punkt erscheint links unter dem Grafikcursor. Nun 

fährt man mit dem Cursor so weit nach rechts, bis 

man die gewünschte Breite erreicht hat. Bei dem 

Rahmen muß man nun noch nach unten fahren, um 

die Breite zu erhalten. Ist das geschehen, so geht 

man ins Menü und wählt die Grafik aus. 

Nach Eingabe der Nummer und ENTER steht die 

Grafik an der gewünschten Stelle. Mit den Pfeiltasten 

des Cursorblockes kann man sie nun beliebig ver- 

schieben (gleichzeitig mit COPY schnell). Bestehen- 
de Schriften und Grafiken werden nicht zerstört. 

Steht die Zeichnung an der endgültigen Stelle, so 

betätigt man die Pfeiltaste und kommt zurück ins 

Menü. Soll eine Grafik mit Rahmen gezeichnet wer- 

den, so wird erst jetzt der Rahmen ausgefüllt (also 

zweimal drücken). Der Grafikcursor steht dann im- 

mer oben links für weitere Operationen bereit. 

Will man schreiben, so kann aus dem Grafikmodus, 

durch einfaches Drücken der “s“-Taste, der Schreib- 

cursor ins Bild geholt werden. Er dient auch dazu, 
um etwas zu löschen (mit der Leertaste). 

Will man eine so erstellte DIN A5-Folie abspei- 

chern, so folgt man dem Menü. 

Eine DIN A4-Folie dagegen wird wie folgt erstellt: 

1. Zeichnen wie beschrieben 

2. Abspeichern mit einer Bezeichnung (z.B. 
FOLIEI1A) 

3. In den Schreibmodus (“s“) und den Cursor nach 
unten so lange laufen lassen, bis noch eine Zeilen- 
breite der vorhergehenden Grafik oben zu sehen 
ist (damit man den Anschluß findet) 

4. Den zweiten Teil der Folie weiterzeichnen 

5. Abspeichern mit einer Bezeichnung (z.B. 
FOLIEIB) 

Jetzt hat man zwei Teile abgespeichert. Will man 

nun diese beiden Teile ausdrucken, so startet man das 

Programm, schaltet den Drucker ein und folgt dem 

Menü (Laden mit Bezeichnung, dann Drucken). 

Nach dem ersten Ausdruck verschiebt man die erste 

Grafik so weit im Schreibmodus nach oben, daß 

noch die Anschlußzeile stehen bleibt, also genauso 

wie beim Abspeichern. Jetzt lädt man die zweite 

Grafik ein und druckt sie aus. Es empfiehlt sich, 

den Drucker nach dem ersten Ausdruck einmal aus- 

und wieder einzuschalten, damit nichts mehr im 

Buffer steht. 

Noch einige Besonderheiten des Programmes: 

— Mit SHIFT und Pfeiltaste erhält man das Abbild 
einer Pfeilspitze 

— Die DEL-Taste ergibt im Schreibmodus ein 


Bitte lesen Sie weiter auf Seite 52 
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16% 


’% FOLIO 

’%* Mit diesem Programm kann man 
'%* Folienentwuerfe mit den 
'%* Drucker (NLA 481) erstellen 
’%* und mit dem Kopierer auf 
’% Klarsichtfolie uebertragen 
’% von Werner E.J. Arndt 

’'* CPC 664/6128 

’%* fuer Schneider aktiv 


ee ie Die ie ie ie ie 


CLEAR: GOSUB 4669: Mk deutscher Zeic 


hensatz I%* 


179 
188 


MODE 2: BORDER 13: DEG 

PRINT:PRINT" FO 

10 

PRINT" AELLDLEEREE 

LOCATE 28,18: PRINT"Beschreibung 
Taste 2x drücken, sonst ENTER 

LOCATE 28,28: PRINT"# Werner E.J. Ar 

/ Wiesbaden 1986 

CALL &BBd6 

CLS 

x=3: y=395: ’#%% Versetzen des Grafikc 


ursors #%* 


IRRRHRRRRBHRRRRRHRRBRRRHHHFE 
’% sichtbarer Grafikcursor * 
I HRRHRBHHRRRRHRBRRRHHERHHHEL 
’ 

G0SUB 798 

MOVE x,y,i 

aß=INKEYS: IF aß="" THEN 328 
IF as="s" THEN GOSUB 1188 

IF a6="h" THEN GOSUB 4468 

IF as="%" THEN END 

G0OSUB 639: ’ Hi Cursorbewegung 
IF as=CHR$(224) THEN 438 

IF a6="%" THEN GOSUB 4578 
MASK 8: DRAW x,y 

MASK 255: DRAW x,y 

G0OTO 328 

» 


IIHRRHRRRHHHHIHHHAHRHHHEN 
'% Zeichnen einer Linie # 
IERRRRRRSRRARBRHRRRRHRHEN 
’ 

MOVE x,y 
a8=INKEY$ 
IF a%="s" THEN GOSUB 1183 

IF a&="h" THEN GOSUB 4468 

IF a$="#" THEN END 

GOSUB 639: ’#%%* Cursorbewegung 
IF a®=CHR®6(224) THEN 398 

MASK 235: DRAW x,y 

GOTO 489 

’ 


I RRRRRRHRRRHRRHRHHRRHHRHHEHNK 


'’% Bewegen des Brafikcursors # 
* AHRHHRHRRRHBHHRHHBHHHHHBEHRFE 


IF a8=CHR$ (224) 
IF a®=CHR# (1288) 
IF a®=CHR®# (249) 
IF as=CHR8# (247) 
IF a8=CHR® (241) 
IF aß=CHR®# (246) 
IF a®=CHR®$ (242) 
IF a8=CHR$ (245) 
IF a®ß=CHR$ (243) 
IF as=CHR® (244) 
xx=XPOS: yy=YPO8 
IF as="#" THEN GOSUB 3268 

IF as="*" THEN PLOT x1-2,y1-2,9 
IF ag="*" THEN PLOT xx,yy,® 

IF a6="*" THEN GOSUB 968 

G0SUB 3288 

RETURN 

’ 


THEN wen+1Q 
THEN wew-19 
THEN yzy#+1 
THEN xex+1Q 
THEN yay-i 
THEN x=x-18 
THEN x=x-1 
THEN ysy-18 
THEN x=x+1 
THEN yzy+18 


I HRHHHRHHRHHRHRRHRRHHHHHHHHHL 
’%* MC-Loader f. Menuewindon % 
IHRRHHRRRRRHBRRRHHBRRBHHRRHGE 
’ 

CURSOR 8 

MEMORY &SFFF:RESTORE 849 

FOR i=43998 TO 43911 

READ wert 

POKE i,wert:NEXT 

FOR i=4390289 TO 43931 

READ wert 

POKE i,wert:NEXT 

DATA &O1,&tt,&37,&11,800, 660, &21, 800 


‚cd, ked,kbd,&c9 


928 


DATA KO1,kff,&34, 11,609, uc9,&21,4:00 


‚&6B,ked,kbB,kc9 


938 
949 
959 
968 
979 
9889 
972 
1208 


* 9 
1989 


RETURN 
’ 


I IHRHHHHHAHHER 
’tNenuert 
I HRRHRRHHAHAHE 
GOSUB 3639 
PRINT#2, " 
Io ar 
PRINT#2, " 


PRINT#2 

PRINT#2," Rahmen mit Schatten 
* Kreis *2 * 
PRINT#2," Raute 

* Rahmen *»4 % 
PRINT#2," Kreis mit Schatten 
* Pfeil *6 * 
PRINT#2," Laden eines Entwurfs 
* Abspeichern «8 * 
PRINT#2," Drucken 

* Dreieck oben/unten %* iQ * 
PRINT#2," Sechseck 


LISTING 


% 11 * Neu / löschen 12% 

1899 PRINT#2," Sechseck mit Schatten 
413% 

1198 PRINT#2:PRINT#2:PRINT#2:PRINTH2," w 
eiter mit Grafikcursor > ENTER < 

1118 PRINT#2:PRINT#2:PRINT#2 

1128 INPUT#2," Nr.: "Inr 

1139 CALL 43028 

1149 ON nr GOTO 1349, 1360,1830, 3330, 2008 
‚,2278,2730, 2579, 3160, 4910,5999,170, 5999 
1158 MOVE x,y,i1 

1168 RETURN 

1178 

1189 HRRRHSHBRHHRHHBBRBRRRHRBRRRRHBHHGFN: 
LULEE 

1198 ’%* Umbelegung Cursorblock/Schreibmo 
dus * 

1299 HHRRRRRRRRAHHHRRRRRRRARRRRHHRHHARK 


1219 

1228 KEY DEF 1,1,9 

1239 KEY DEF 2,1,18 

1249 KEY DEF 8,1,8 

1259 KEY DEF 2,1,11 

1269 CURSOR 1:L0CATE 1,1 

1279 as=INKEY® 

IF ag="r" 

IF FI LE 

IF FI LE 

1318 PRINT asj 

1328 GOTO 1278 
’ 


THEN CURSOR 9 
THEN G0SUB 328% 
THEN RETURN 


I RRRRHRRHRRHRRBHRHRRHHRE 
’%* Rahmen nit Schatten % 
IRRRRRRRHRRIHHARHHIHH NR 
1) 


1389 s=8:f=3 

IF 1288 AND b<198 THEN s=s-1 

IF 1X189 AND b<S8 THEN s=s-3 

1418 GOSUB 4219 

19428 DRAW x+1,y,1:DRAW x+1,y-b,L:DRAW x, 
y-b, 1: DRAW Kıyıi 

19438 IF 1<=28 OR b{=18 THEN f=8 

1448 MOVE x+s,y-b-2,1:DRAW x+s,y-b-s-2,1 
:DRAW x+s+1,y-b-s-2,1:DRAW x+5+1,y-s-2, 1 
:DRAW x+1+1,y-s-2,1:MOVE x,y 

1459 a®=INKEYS: IF a@="" THEN 1458 

IF a6="*" THEN MOVE x+s+6,y-b-4 
1478 IF a®="*" THEN PRINT CHR$(23) +CHR$( 


age" An 
age"An 


THEN FILL f 

THEN GOSUB 4418 

ag="*" THEN GOTO 268 

a$="h" THEN GOSUB 4489 

1529 DRAW x+1,y,3:DRAW x+1,y-b,3:DRAW x, 
y-b, 3: DRAW X%,Y,3 

1538 MOVE x+8,y-b-2,3:DRAW x+s,y-b-s-2,3 
DRAW x+s+1,y-b-s-2,3:DRAW x+s+l,y-s-2,3 
DRAW x+1l+1,y-5-2,3:MOVE x,y 

1549 GOSUB 630 
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1558 MOVE x,y 
1568 G0OTO 1429 
1579 

1389 
1599 
1698 
1618 
1628 r=19 

1630 GOSUB 4219 

1649 IF 1<=59 AND 1>28 THEN r=30 

16358 IF 1<=20 AND 1318 THEN r=48 

1668 IF 1(=18 THEN r=e39 

1678 MOVE x+SIN(LI#1,y+COS(1)* 

1688 FOR i=1 TO 378 STEP r 

1699 DRAW x+SIN(I)#1,y+COSsti)#1,1 

1788 NEXT 

1718 as=INKEYS: IF as="" THEN 1718 

1728 IF aß="*" THEN PRINT CHRS$(23) +CHR®( 
IR 
1738 


EN 
'’% Kreis *% 
IRRE 
’ 


IF a6="*" THEN GOSUB 4418 

1748 IF a$="*" THEN GOTO 268 

1759 IF a$="h" THEN GOSUB 4489 

1768 MOVE x+SIN(L)#1,y+COS(1)* 

1778 FOR i=i TO 378 STEP r 

1788 DRAW x+SIN(i)#1,y+COSti)#1,3:NEXT 
1799 GOSUB 639 

1898 MOVE x,y 

1818 GOTO 1678 

1829 

1838 
1848 
1859 
1868 
1878 GOSUB 4219 

1889 DRAW x+1/2,y+b,1:DRAW x+1,y, 1: DRAW 
x+1/2,y-b,L:DRAW x,y,1 

1899 as=1INKEYS: IF as="" THEN 1899 

1908 IF a®="h" THEN GOSUB 4480 

19719 IF a8="*" THEN PRINT CHRS(23) +CHR$( 
27 

1928 IF as="*" THEN GOSUB 4419 

1939 IF a$="*" THEN GOTO 248 

1948 DRAW x+1/2,y+b,3:DRAW x+1,y,3: DRAW 
x+1/2,y-b,3:DRAW x,y,3 

1959 GOSUB 439 

1969 MOVE x,y 

1978 GOTO 1889 

1989 ° 

1999 °’ 

2889 RAR 

2818 ’% Kreis mit Schatten * 

2822 RRRRRHRRHHRRRRRHHHANNN 

2830 ’ 

20848 GOSUB 4219 

20359 r=19 

2068 IF 1<=S8 AND 132% THEN r=30 
2878 IF 1<=28 AND 1>18 THEN r=48 
2888 IF 1<=e18 THEN r=39 

2898 MOVE x+5INtLI#L,y+COSt1)*1 

2128 FOR i=1 TO 378 STEP r 


IR 
'’% Raute % 
KIN 
’ 


LISTING 


2118 DRAW x+SINGI)EL,y+COSCHIK,L 

2128 NEXT Ä 

2138 as=INKEYS:IF aß="" THEN 2130 

2148 IF a6="*" THEN GOSUB 3499 

2158 IF a@e="*" THEN PRINT CHR®(23) +CHRS( 
2168 IF aß="*" THEN GOSUB 4419 

2178 IF ag="*" THEN GOTO 268 

2168 IF a6="n" THEN GOSUB 4488 

2198 MOVE x+SIN(LIHL,y+COSCHK 

2288 FOR i=1 TO 378 STEP r 

2218 DRAW x+SIN(L)#1,y+C0S(1)*1,3 

2220 NEXT 

2230 GOSUB 638 

2249 MOVE x,y 

2258 GOTO 2098 

2268 ' 

HHHHHHHHE 

’x Pfeil * 

HHHHHHHE 

2308 ’ 

2318 w=99 

2328 GOSUB 4210 

2338 ORIGIN x,y:DRAW 1#SIN(n-45) ,14C0S (m 
45) ,1 

2348 ORIGIN x,y:DRAW 1#SIN(w+225) ,1#C0S1 
w+225) ‚1 

2358 ORIGIN x+1#SIN(w+225) ,y+1#C0S (w+225 
):DRAW 1/4KSIN(m) ‚1748008 (m) ‚I 

2368 ORIGIN x+1#SIN(w-45) ,y+1l#C0S(m-45): 
DRAW 1/4%SIN(n-189) ,1/74%C0S(w-18@) ‚1 
2378 ORIGIN x+((1-1/6.5)KSIN(m-123) ) ,y+t 
1-1/6.5)#C08 (m-123) :DRAW 1#SIN(w-9@) , I*C 
0S(w-99) ‚1 

2368 ORIGIN x+((1-1/6.5)#8IN(w-57)) ,y+ll 
-1/6.3)%C0S(w-57) :DRAW 1#SIN(m-98) , 1%C0S 
(w-99) ‚1 

2398 ORIGIN x+(1#SIN(w-105)#1.77) ,yrtläC 
0S(m-105)#1.77):DRAW (1/1. 1) HSINGW) , (1/1 
.LIKCOSCW) ,d 

2408 a6=INKEYS:IF aß="" THEN 2400 

2418 IF a6="*" THEN PRINT CHR®(23) +CHR#( 
27 
2428 IF 
2438 IF 


ag="A" THEN ORIGIN 1,1 

ag="*" THEN GOSUB 4419 

2448 IF a$="*" THEN GOTO 268 

2458 IF aß="h" THEN GOSUB 4489 

2468 ORIGIN x,y:DRAW 1#SIN(w-45) ,1%C0S (m 
-45) ,3 

2478 ORIGIN x,y:DRAW I#SIN(w+225) ,1%C0S( 
w+225),3 

2488 ORIGIN x+1#SIN(w+225) ,y+1#C0S (w+225 
):DRAW 1/4%SIN(m) „1748005 (m) ‚3 

2498 ORIGIN x+1#SIN(w-45) ‚y+l#C0S(w-45): 
DRAW 1/4*SIN(w-189) , 1/4%C0Stw-189) ,3 
2508 ORIGIN x+((1-1/6.5)%SIN(w-123) ) ,y+( 
1-1/6.5)8C0S(n-123) DRAW 1#SIN(n-92) , I*C 
0S1w-98) ‚3 

2518 ORIGIN x+((1-1/6.5)#5IN(W-57)) ,y+tl 
-1/6.5)#C08(n-57) :DRAW 1#SIN(w-98) , 14C08 
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({n-99),3 

2528 ORIGIN x+(1%SIN(w-185)#1.77) ,y+i1%C 
0S{w-105)%1.77) DRAW (1/1.1)85INW) „(1/1 
«L)COS(W),3 

25380 GOSUB 618 

2549 MOVE x,y 

2559 GOTO 2338 

2368 ° 

2378 HRRHRRRRHHRHRRRHBRRBRRRHEE 

2588 '%* Abspeichern und * 

2599 ’% Bezeichnung der Skizze # 

2688 HRRHHRHRHRRRHRHRRHRHHRHHEN 

z610 ’ 

2628 WINDOW#1,19,70,5,8 

2638 LOCATE 9,4:PEN 1: PRINT CHRS(139) ST 
RING®S (68, CHR®(134) )CHR® (156) 

2648 FOR i=35 TO 7: LOCATE 9,1:PRINT CHR® 
(149) :LOCATE 78,i: PRINT CHRS(149) 5: NEXT 

2658 LOCATE 9,8:PRINT CHR®(147) STRINGM( 
62, CHRS(154) I) CHRS(153) 

2668 PRINT#HI 

2678 INPUT#1, "Bezeichnung (max. 8 Zeiche 
n) :"Iskizze® 

2668 CALL 43928 

2698 ORIGIN 8,8:SAVE skizze#,B,49152,163 


2708 CALL &BBO& 
2718 GOTO 269 
2728 ’ 
IRAK 
’'% Skizze laden * 
IIHRRRRRRRRARRHHRR 
2768 ’ 
2778 LOCATE 12,19: INPUT" Bezeichnung der 
Skizze :"jskizze® 
2788 CLS 
2798 ORIGIN 9,0 
2898 &DISC 
2819 LOAD skizze#:GOSUB 798 
2828 x=1:y=399:G0SUB 95% 
2839 G0T0 2648 
’ 


I IHBHHHHRRRRRHHRRHHHHRR 

2868 ’%* Hardcopyroutine * 
RRRRHARHRRHHRRHHHHRN 

2888 ’ 

2898 RESTORE 2960 

2909 p=k9808: MEMORY p-1 

n=p 

29728 READ a% 

IF a$="EOF" THEN RETURN 

2948 POKE n,VAL("k"+aß) inen+i 

2938 GOTO 2928 

2768 DATA fe,9,28,b,fe,3,28,7,f8,4,28,3 

‚fe,7,c9,32,29,be,cd,d8,bb,eS,dS,cd,dS,b 

b,e3,d35,21,e,8,22,2e,be,21,6,8,22,2c,be, 

21,2,8,22,2a,be,33,29,be,fe,8,28,34,te,4 

‚28,12 

2978 DATA 6,6,21,2a,be,dd,4e,9,71,dd,23 

‚23,18,77,te,3,28,1e 


LISTING 


2788 DATA dd,6e,2,dd,66,1,dd,5e,2,dd,36 
6,7,cd,c#,bb,cd,d8,bb,ed,53,18,be,22,1a, 
be,cd,d3,bb,23,ed,33,18,be,22,12,be,dl,e 
1,cd,ct,bb,di,ei,cd,d2,bb 

2999 DATA 6,19,21,28,be,af,77,23,18,fc,6 
‚19,2b,eS5,2a,2a,be,29,e3,39,2,cb,dö,2b,e 
3,10, f6,e1,6,19,21,f,be,e3,2a,2c,be,29,e 
3,38,2,cb,ce,2b,8e3,10,f6,e1,6,18,21,f,be 
‚eS,2a,2e,be,29,e3,39,2,cb,c6,2b,e3,12,f 
6,el 

30828 DATA 21,0,2,e3,d1,6,8,dd,21,28,be, 
c5,d5,e5,cd,f2,bb,dd,71,8,dd,23,el,di,ci 
‚13,19, ef 

3818 DATA 21,38,42,22,38,be,21,cd,ie,22 
‚32,be,21,bb,c2,22,34,be,2i1,cd,2e,22,36, 
be,21,bd,38,22,38,be,21,*3,78,22,3a,be,2 
1,cd,2b,22,3c,be,21,bd,c9,22,3e,be,2a,e6 
‚bd,cb,fc,22,2e,be,3e,ct,32,2d,be 

3828 DATA 23,19,be,22,ic,be,ed,Sb,ia,be 
‚b7,ed,52,22,1e,be 

3238 DATA 2,2,2,2,2,9,92,9,2,0,2,2,0,0,0, 
18,6,6,9,cd,30,be,d@ 

3848 DATA 28,12,be,22,14,be,eb,2a,ic,be 
‚es,cd,f8,bb,di,7a,b7,7b,28,c,te,4, 32,8, 
fe,2,28,3,38,b,18,3,cd,26,bc,cd, 26,bc,cd 
‚26,bc,22,2a,be,2a,12,be,ed,Sb,14,be,b7?, 
ed,32,2b,cb,7c,28,2e 

30839 DATA 11,f8,#+,2a,1c,be,19,22,1c,be 
‚Za,le,be,19,22,le,be,2b,cb,?7c,cQ 

3068 DATA 6,1b,cd,30,be,d®,6,4a,cd,30,b 
e,6,12,cd,38,be,6,d,cd,38,be,18,82,18,c3 
30878 DATA 23,7c,b7,26,2,28,5,7d,fe,308,3 
8,2,28,32,34,7d,cb,3#,85,85,5#,7d,cb, 3%, 
cb,3f,cb,3f,ed,4b,14,be,9,22,14,be,32,16 
‚be 

3889 DATA 6,1b,cd,38,be,dQ,6,3a,cd,39,be 
‚93,cd,32,be,42,cd,30,be,18,31 

329% DATA di,13,3e,6,32,2c,be,3a,28,be, 
47,cd,38,be,3a,29,be,47,cd,38,be,c1,19,2 
6,38, 29,be,47,cd,39,be,c1,18,14,2a,2a,be 
‚cd,28,bc,22,2a,be,21,16,be, 35,28, 91 
3128 DATA 11,20,be,6,4,c5,3e,5,32,2c,be 
‚6,2,05,21,80,8,22,28,be,1a,4f,d5,2a,le,b 
e,7c,b7,7d,2a,2a,be,28,e,fe,4,30,a,fe,2, 
28,66,38,62,18,2f,18,9+ 

s11@ DATA cd,2d,be,St,eb,7e,2e,2c,a6,28 
‚13,28,29,cb,37,28,4,cb,c6,cb,ce,86,3,28 
‚s5,2d,cb,cö,cb,ce,eb,dS,11,8,+8,7c,e6,38 
‚28,3,11,68,37,19,di 

3128 DATA cd,2d,be,Stf,eb,7e,2e,2c,a6,28 
‚13,28,29,cb,37,28,4,cb,ce,cb,d6,e6,3,2€ 
‚S,2d,cb,ce,cb,d6,eb,d3,11,9,#8,7c,e6,38 
‚28,8,11,68,37,19,di 

3138 DATA 18,4,18,290,18,2d,cd,2d,be,St, 
eb, 7e,2e,2c,86,28,13,2e,29,cb,57,28,4,cb 
‚de,cb,e6,e6,3,28,35,2d,cb,de,cb,e6d,eb,dS 
‚11,2,78,7c,86,38,28,3,11,69,37,19, di 
3148 DATA cd,2d,be,Sf,eb,7e,2e,2c,a6,28 
‚13,2e,29,cb,37,28,4,cb,e6,cb,ee,e6,3,28 
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‚5, 2d,cb,e6,cb,ee,eb,18,ae,EOF 

313g ’ i 

3168 HHRHRRHHRHHHHRRHHHHHHEHE 

3178 ’%* Ausdruck / HC laden * 

3188 HHRHHAHHHRARHHRRRRHHHHEN 

3198 ’ 

32289 CURSOR % 

3218 CALL 43829 

3228 GOSUB 2859 

3238 CALL 49908 

3248 GOTD 268 

3238 ’ 

3268 HRRRRRRRRRRRHRHHSRRRHRRHHRHHHNE 
3278 '%* Uebergabe Cursorpositionen * 
3288 HHRRRRHRRHRRHRRRRRRRRRRHHHHHHEN 
3298 ’ 

3399 xlexx;yleyy 

3318 RETURN 

3328 ’ 

3330 RR 

3348 '%* Rahmen + 

3330 RRHHRH 

3368 ’ 

3378 GOSUB 4218 

3388 DRAW x+1,y,1:DRAW x+l,y-b,L:DRAW x, 
y-b,1:DRAW x,y,i 

3398 as=INKEYS: IF as=e"" THEN 3399 

3498 IF a@="*" THEN PRINT CHRS(23) +CHRS( 
1 

3418 IF as="*" THEN GOSUB 4419 

3428 IF as="*" THEN GOTO 269 

3438 IF a®="h" THEN GOSUB 4488 

39449 DRAW x+1,y,3:DRAW x+1,y-b,3:DRAW x, 
y-b, 3: DRAW X,Y,3 

3458 GOSUB 439 

3468 MOVE x,y 

3478 GOTO 33898 

3488 °’ 

3999 RRRRHHRHHHHRHHHEN 

3598 '%* Kreisschatten * 

33128 IHRRRRRHRHHHHHRHEN 

33529 ’ 

3538 FOR z=i TO ? 

3549 xux+i 

3558 PRINT CHRS(23) +CHRB(9) 

3568 MOVE x+SIN(LI#1,y+COS(1) #1 

3578 FOR i= 1 TO 188 STEP r 

3588 DRAW x+5INti)#1,y+COS(i)*1 

3598 NEXT i 

3629 NEXT z 

3618 RETURN 

3629 ° 

3639 HHRRRRRRHHRRRRRHRRHRHHHRHHHHRHHHHHE 
3649 ’%* Unterprogrann Menl-/Helprahmen %* 
3659 HRRRRRRRRHRHRRRRRRRHRRRHRHHHHHHHEN 
3668 ’ 

3678 CALL 43089 

3688 WINDOW#2,12,79,3,23 

3698 LOCATE 9,2:PEN 1:PRINT CHRS(158) ST 
RINGS (61, CHRS(154) ICHRS (156) 


LISTING 


37988 FOR i=3 TO 23: LOCATE 9,i:PRINT CHR 

SCLA9):LOCATE 71,i:PRINT CHRS(149) 5: NEXT 
3718 LOCATE 9,24: PRINT CHR$(147) STRING® 
(61, CHRS1S4) I CHRSLLS3SI:CLSH2 

3728 IF a$="h" THEN GOSUB 3759 

3738 RETURN 

3748 
3758. HHRRRRRRRHRRRRRHRRHIHNK 

3768 ’% Unterprogramm HELP *# 

3778. RRRRRRRRHRRRHHRHRRHREN 

3788 ’ 

3798 PRINT#2,'HILFE .... 
eine Taste drücken (nicht ESC) 

3888 PRINT#2 

3818 PRINT#2,"Der Grafikcursor befindet 

sich oben links. Mit der Pfeil-" 

3828 PRINT#2, "taste (rechts) wird er a 

m oberen Rand bewegt. Weitere" 

3838 PRINT#2, "Steuerung Über die Pfeilta 

sten. Schnell = SHIFT + Pfeil-" 

3848 PRINT#2, "tasten / Zeichnen einer L 
inie 1 mal COPY-Taste drücken" 
3858 PRINT#2, "und weiterbenegen. 
er 1 mal COPY-Taste Ende des" 
3868 PRINT#2, "Zeichenmodus. 

3878 PRINT#2,"über die Pfeiltaste unter 
dem Pfundzeichen kommt man ins" 

3888 PRINT#2,"Menü. Will man etwas schr 
eiben, so kann man direkt aus" 
3898 PRINT#2,"den Grafikmodus über 

in den Schreibmodus wechseln," 

3788 PRINT#2,"Zurück Über das Menü und E 
NTER, 

3?18 PRINT#2, "Bevor man Grafiken in Me 
nü aufruft, müssen diese Maße" 

3928 PRINT#2, "erhalten: Grafikcusor an 
die Stelle fahren, wo etwa die" 

3938 PRINT#2, "Grafik stehen soll. iIxm 
it SHIFT + # diese Stelle" 

3948 PRINT#2,"markieren (ein Punkt blei 
bt stehen!) und nun die Länge" 

3958 PRINT#2, "mit dem zweiten Cursorpun 
kt bestimmen. Dann die Breite" 

3P68 PRINT#2,"durch Hinunterfahren mit 
dem Cursor - (hier bieibt kein" 

3778 PRINT#2, "Punkt stehen). Dann ins Me 
nü und Grafik auswählen, >ENTER. " 

3788 PRINT#2,"Drehen des Pfeiles Über C 
OPY. Schatten werden erst nach" 

39798 PRINT#2,"drücken der Pfeiltaste (Me 
nü) ausgezeichnet (2x drücken)" 

4888 CALL &BBd6 

4818 CLSHZ2 

4828 PRINTR2,"Hilfe.....Seite 2 > weiter 
‚ eine Taste drücken (nicht ESCI" 

4838 PRINT#2 

4998 PRINT#H2, "Alle Grafiken lassen sic 
h mit den Pfeiltasten über den" 

4858 FRINT#2, "Bildschirm bewegen (mit SH 
IFT + Pfeitaste = schnell). 


weiter ) 


Wied 


’8{ 
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#868 PRINT#2, "Will man ein DIN A4 Folie 
erstellen, so entwirft man den" 

4878 PRINT#2,"oberen Teil und schiebt i 
hn mit dem Schreibcursor nach" 

4888 PRINT#2,"oben weg (Cursor Über u 
nteren Rand laufen lassen). Man" 
4898 PRINT#2,"1&Bt jedoch einen 
Rand oben auf den Bild stehen," 
41288 PRINT#2, "damit man den zweiten Teil 
ansetzen kann. Jetzt wird über" 

4118 PRINT#2,"das Menü die Teilfolie abg 
espeichert (mit Bezeichnung). 

4128 PRINT#2,"Der zweite Teil wird jetzt 
angesetzt und gezeichnet. Nach" 

4138 PRINT#2, "Beendigung wird dieser Tei 
l abgespeichert. 

4148 PRINT#2,"Der Ausdruck erfolgt nach 
dem Laden des Teiles i über das" 

4158 PRINT#2, "Menü. Dann wird Teil i 

so hochgeschoben, daß wieder der" 

4168 PRINT#2, "Anschluß zu sehen ist (muß 
genau so sein wie beim Abspei-" 

4178 PRINT#2,"chern). Dann Über das Menü 
den 2.Teil laden und ausdrucken" 

4188 PRINT#2:PRINT#2, "Nach Programmabbru 

ch mit run 178 Neustart, 

4198 RETURN 

4299 ° 

4218 RRRRRHRRRARRHRRRRRHRHEN 

4228 '%* Unterprogramm Werte * 

4238 HRRRRRARRHHRHRRHHHHRHEN 

4249 ' 

4259 lIexx-xi:ıbzyl-yy 

4268 MOVE xi,yil,i 

4270 xexliyeyil 

4288 PRINT CHRS(23) +CHRS(L)} 

4298 RETURN 

4399 °’ 

3 RRRRRRRRHRHHRHHRHN 

4328 '%* Sechseckschatten * 

43385 HRRHRRRRRHARRRRHHNR 

4348 ’ 

4358 FOR z=i TO ? 

4369 xux+2 

4378 MOVE x+l/2+1,y+1/2-1 

4388 DRAW x+1,y: DRAW x+1,y-1/2:DRAW x+1/ 

2; y-L:NEXT 

4399 RETURN 

4499 

RAR 

4423 '%* Grafikcursor oben links * 

3 HH 

444g ° 

4438 x=3:y=395 

4468 RETURN 

4478 ° 

2488 RR 

4498 '%* Sprung zu Help * 

4528 HRRRRRRRRHRHHRHHN 

4519 


kleinen 


LISTING 


4528 GOSUB 3638 
4539 CALL KBBO6 
4549 CALL 43929 
4558 RETURN 

’ 


4578. RRRRRRRRHHRRHRRRBHHN 
4588 ’% Markierung Cursor * 
4598 HRRRRRRHRHRRHHHRHHHRN 
4698 ' 
4618 MASK 255 
4628 PLOT xx-2,yy-2 
4638 MOVE xx,yy 
4648 RETURN 

’ 


46 ARRRHHHRRRHRRHRBHRBHHBHHHHHHRHER 

4678 '% Tastenumbelegung und dtsch. * 

4688 '% Zeichensatz * 

4698 HRRRRHRRHREHRRHHBRHRRRRBHRHHHHHEN 
’ 


4718 SYMBOL AFTER 98 

#728 SYMBOL 91,KX1211919,&X111109,KX11908 
112,KX1108L1ID,LXL11111D, XL IOQWILD,RX11L9D 
119,4x0 

4738 SYMBOL 92,KX19111919,LX1101109,KX11 
BBO11Qd,KXLLODDLID LXL1ONNLID, KKXK1IDLLOD, 
X111999,uX8 

4748 SYMBOL 93, &X1109110,&X0,KXL10Q11O,k 
K1108110,KK1120110,KX1100119,KX 1111900, 8X 
8 

4738 SYMBOL 123,4X19019090, KXQ,KK1111008, 
KK110Q,KX1111190, KK L10Q11OD ,KXILIOLID, X 
a 

4768 SYMBOL 124,4.X199190,u.xX0,KX111190, &X 
1120110, KXL1OB119, LK 1100119, KX111190,.X0 
4778 SYMBOL 125, KX0,uX1L9000109,uX2,&X11L98 
110,KX11Q0L1O,KK11OQ11Q,KXi111I1,ExXQ 
47689 SYMBOL 126, kX111990,KK1101109,&.X110 
1129,LX 11011098, LX1109110,&X1110L19,&XL1O 
1199, LX11000008 

4798 KEY DEF 22,1,124,92 

4888 KEY DEF 19,1,125,93 

4818 KEY DEF 17,1,123,91 

4828 KEY DEF 26,1,126,96 

4838 KEY DEF 10,1,166 

4848 KEY DEF 11,1,248 

4858 KEY DEF 29,1,242 

4869 KEY DEF 4,1,243 

4878 KEY DEF 14,1,241 

4889 KEY DEF 12,1,231 

489% RETURN 

4999 ' 

a RR 

4928 '%* Dreieck * 

93 !RRRRRRKRERK 

4949 ' 

4958 GOSUB 4219 

4969 DRAW x-1,y-1,1:DRAW x-1/2,y-1,1:DRA 
W x-1/2,y-1,1 

4978 DRAW x+1/2,y-1,1:DRAW x+1/2,y-1,1:D 
RAW x+1,y-1,15DRAW x,y,i 


4989 as=INKEYS: IF a6="" THEN 4988 

4798 IF a$="*" THEN PRINT CHR®(23) +CHRE( 
213 

5229 IF as="*" THEN GOSUB 4419 

Ssg1g IF ag="*" THEN GOTO 268 

5028 IF as="h" THEN GOSUB 4489 

5038 DRAW x-1,y-1,35DRAW x-1/2,y-1,3:DRA 
W x-1/2,y-1,3 

5048 DRAW x+1/2,y-1,3:DRAW x+1/2,y-1,3:D 
RAW x+1,y-1,3:DRAW x,y,3 

3058 GOSUB 439 

S2648 MOVE x,y 

5278 G0T0 4968 

Sg69 ’ 

329 RAR 

S188 '%* Sechseck + 

s1128 HHRRHHHHRHHER 

S129 

s138 GOSUB 4219 

5148 DRAW x+1/2,y+1/2,1:DRAW x+1,y,1:DRA 
Wx+l,y-1/2,12DRAW x+1/2,y-1,1 

5158 DRAW x,y-1/2,1:DRAW x,y,i 

S169 a$=INKEYS:IF a$="" THEN 5169 

5178 IF a6="*" AND nr=13 THEN GOSUB 4318 
3189 IF as="*" THEN PRINT CHRS(23) +CHRE( 
23 

3198 IF a$g="*" THEN GOSUB 4419 

5208 IF a$="*" THEN GOTO 269 

5218 IF a$="h" THEN GOSUB 4489 

5228 DRAW x+1/2,y+1/2,3:DRAW x+1,y,3:DRA 
Wx+1l,y-1/2,3:DRAW x+1/2,y-1,3 

3239 DRAW x,y-1/2,3:DRAW x,y,3 

3249 GOSUB 638 

5258 MOVE x,y 

5269 GOTO 3149 

s278 °’ 

328 RHEIN 

3298 '* Umbelegung Cursortasten * 

339098 HHRRRRHHHRHHHHRRAHHIRHHHHHN 

s319 

5328 KEY DEF 1,1,243 

5339 KEY DEF 2,1,241 

3348 KEY DEF 8,1,242 

5358 KEY DEF 2,1,249 

5362 RETURN 


FOLIO 


Rastermuster. Man kann damit z.B. große Buch- 
staben zusammensetzen. 

— Durch abwechselndes Drücken der Pfeiltasten 
nach oben und rechts erhält man eine Linie schräg 
nach oben (analog nach unten) 

— Wird das Maß für das Dreieck nicht von links nach 
rechts, sondern umgekehrt bestimmt (Grafikcursor 
mit Pfundzeichen markieren und nach links die 
Breite bestimmen), so zeigt die Spitze nach unten 

— Will man einen Pfeil nach links drehen, so drückt 
man anstatt COPY den Buchstaben “1‘“ 

Mit etwas Übung und Geschick ist man in der Lage, 

individuelle Grafiken zu entwerfen, diese auszudruk- 

ken und auf Folie zu kopieren. Aber auch als grafi- 
sche Darstellung auf Papier sind diese Ausarbeitungen 
in Vorlagen u.ä. zu integrieren. 
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RAUMPLAN 


Wer schon einmal umgezogen ist, der kennt das Pro- 
blem: Wie stellt man die Möbel in der neuen Wohnung 
auf? Es wurden Zimmer ausgemessen, Maßstäbe umge- 
rechnet und die Möbel mit Bleistift und Lineal einge- 
zeichnet. 

Mit dem Programm ‚„Raumplan“ ist dies jetzt am Bild- 
schirm möglich. Schränke werden gerückt, der runde 
Tisch quer durch den Raum geschoben und die Woh- 
nung eingerichtet. Alles wird maßstabgerecht gezeich- 
net und mit dem Schneider NLQ 401 auch so ausge- 
druckt. 

Nach dem Start fragt das Programm nach dem Maßstab, 
ob die zu erstellende Zeichnung abgespeichert oder ei- 
ne bereits gespeicherte geladen werden soll. Oben 


rechts erscheint ein Window, in das alle Werte eingetra- 
gen werden. Maße sind als x- und y-Werte eingetragen. 
Der Bildschirm ist ein Koordinatensystem, wobei 
unten links der Nullpunkt ist. Der untere Rand ist die 
x-Achse, der linke die y-Achse. Eine Wand, die z.B. 

5 Meter lang ist, wird wie folgt eingegeben: x=5, y=0, 
Befehl “z‘. Eine rechtwinklig dazu verlaufende zwei- 
te Wand von 4 Meter: x=5, y=4, Befehl “z“. Der Raum 
wird weiter geschlossen mit: x=0, y=4, Befehl “z“, 
dann x=0, y=0, Befehl ‘“z‘“. Will man den unsichtba- 
ren Grafikcursor irgendwohin bewegen, ohne daß eine 
Linie gezeichnet wird, so gibt man nach den x/y-Koor- 
dinaten den Befehl b ein. Von dort aus kann jetzt 
weitergezeichnet werden, ein Punkt markiert die Stel- 
le. Gestrichelte Linien zeichnet man nicht mit dem 
Befehl “z‘, sondern mit dem Befehl “m‘. Will man 
eine Linie löschen, so gibt man einfach die vorherge- 
henden Koordinaten ein und den Befehl “1“. 


Nachdem der Raum gezeichnet ist, gibt man die Koor- 
dinaten ein, wo ein Möbelstück frei stehen kann, z.B. 
x=3, y=3. Es empfiehlt sich ein Maßstab von 1:50. 
Als Befehl wird jetzt die Pfeiltaste unter dem Pfund- 
zeichen betätigt, und im Window erscheint die Frage 
nach der Länge des Möbelstückes, dann die Breite. 
Mit den Cursortasten und gedrücktem SHIFT kann 
man das Möbel schnell verschieben. Ohne SHIFT er- 
folgt ein Verschieben um jeweils einen Bildschirm- 
punkt. Die Taste f8 erlaubt eine schnelle Drehung, 
die COPY-Taste eine langsame. 

Einen Kreis (z.B. runder Tisch) erhält man, wenn 
man nach den x/y-Koordinaten den Befehl ‘‘k“ ein- 
gibt und den gleichen Wert für rl und rb. Es sind 
zwei Radien einzugeben, um auch ein Oval zeichnen 
zu können. 

Soll eine Linie angesetzt werden (z.B. die Abschrä- 
gung in der Küche), so wird nach den x/y-Koordina- 


a Eingang 
| 


ten und dem Befehl Pfeiltaste für L=O und B=entspre- 
chende Länge eingegeben. Die so erhaltene Gerade 
kann nun beliebig verschoben und angesetzt werden. 
Der Befehl “s‘“ ermöglicht eine Beschriftung. Mit der 
Pfeiltaste unter dem Pfundzeichen schaltet man den 
Schreibmodus wieder ab. 

Über den Befehl “d‘“ wird der Plan mit den NLQ 401 
ausgedruckt. Die Hardcopy wurde nach dem Pro- 
grammstart bereits geladen, weshalb auch der Vor- 
spann etwas lange zu sehen war. 

Weiterhin kann man mit dem Befehl ““—“ ein Koordi- 
natensystem sichtbar und mit “w““ wieder verschwin- 
den lassen. Die Wertabfrage wird in solchen Fällen 
übrigens einfach mit ENTER übergangen. 

Will man etwas löschen, so schaltet man in den 
Schreibmodus und benutzt den Cursor mit der Leer- 
taste als „Radiergummie“. Nach Rückkehr in den 
Arbeitsmodus kann wieder neu gezeichnet werden. 
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19° HSHRRHHRHHRHHRRHHHHEHHEHHRHHAHHAE naten loeschen 


32 ’% Raumplan * 630 IF a$="a" THEN GOTO 2882: A abspei 
sg °’% von Werner E.J.Arndt % chern 
ea '% tuer * 648 IF a$="*" THEN G0T0O 2739: ’H Umscha 
2 ’% Schneider aktiv %* lten Rechteck 
9 °’% CPC 6649/6128 * 632 IF as="#4" THEN END 
229 ' 668 GOTO 398 
219 °’ 678 ORIGIN 8,2: PAPER#2, 2:CLS#2:BORDER 1 
228 DEG:schrittw=29:'#4% fuer Kreis/Oval 688 CALL KABDD:’%H Aufruf Hardcopy HH 
238 MODE 2 699 GOTO 308 
248 g=ed:h=9:'Hhk Ursprung setzen Hk 799 ° 
2398 GOSUB 2339: Hk Titel/HC laden HH 718 IHHHRRBHAHHAL 
269 GOSUB 2249: ’X% Massstab umrechnen *%* 728 '% Zeichnen * 
* 738 IHRRHRRAHBHHE 
278 CLS:G60SUB 1859: ’3Ht# Bezeichnung der 798 °' 
Grafik HH 758 PRINT#2,:PRINT#2, " ’1a8 
268 GOTO 2949: ’H# Grafik laden K% 768 xaxitm: yayikm 
298 MODE 2 778 DRAW x,y 
388 PEN 1:INK 1,26:INK 2,1:BORDER 3 788 G0T0 398 
318 ORISIN 9,h 799 °’ 
329 ’ 8998 IHHBHHRRRRRRBHHBHRBHHRHEL 
338 HHHRAHHRRAHHHARHHHHRHHHHHRBHHEHHHE 818 ’%* Bewegen Gratfikcursor %* 
349 ’% %Breakifenster/x-y Koordinaten # 828 BRRBHHHRRBHBRRRBHRBHHBHHH: 
3528. ZHRHRRRRRBHRHHRBHRRRRBRHHHHBHHRHHRL 839 ° 
369 ' 849 PRINT#2,: PRINT#2, " "as 
378 WINDOWN2,78,88,1,3: PEN#2,28: INK 3,9:P 839 xexkm: yayım 
APER#2,3:CL6#2 868 MOVE x,y:PLOT x,y 
388 LOCATE 72,2:PRINTK2," Eingabe: ":SOU 878 GDTO 399 
ND 1,300,5 889 ° 
398 CURSOR 8 898 "IHHHRRRRHRHHL 
489 bS=INKEY®S: IF b#="" THEN GOTO 398 988 ’%* Loeschen * 
a1 CLEH2 918 RRRRRRHHHHHE 
429 SOUND 1,309, 928 ' 
438 KEY DEF 11,1,248 938 PRINT#2,:PRINTH2," "a8 
443 INPUTH2," x = ",x:SOUND 1,209,5 949 MASK 0 
459 INPUTH2," y = °,y:SOUND 1,108,5 959 xuxkm: yayıım 
469 CLSH2 968 DRAW x,y:MASK 255 
4798 ° 978 GOTO 398 
489 9 HHHHHRRARHRRHHHHRHBERHRRHHHHE 988 °’ 
#98 ’% Aufruf der Funktionen + 979’ ARRRRHRRRHHHAH 
598 ’ 1098 ’% Beschritften * 
y19 ’ 1818 "BHBHHRRHRHHRHHRE 
322 PRINT#2," Befehl: " 1929 
539 a®=INKEYS: IF a6="" THEN G0OTO 338 1838 PRINT#2,:PRINT#2, " "i38 
548 IF aß="z" THEN GOTO 719: ’H% zeichne 1848 KEY DEF 1,1,9 
n . 1058 KEY DEF 2,1,19 
559 IF a$="b" THEN GOTO 899: ’%k% bewegen 1868 KEY DEF 6,1,8 
Grafcursor 1878 KEY DEF 2,1,11 
568 IF a®="1" THEN GOTO 899: ’3Hk loesche 1888 KEY DEF 19,1,249 
n Linie 1898 KEY DEF 11,1,248 
578 IF as="d" THEN GOTO 679: '3H drucken 1198 KEY DEF 3,1, 239 
589 IF a$="s" THEN GOTO 998: ’%% schreib 1118 KEY DEF 20,1,249 
en 1128 KEY DEF 12,1,241 
5994 IF as="k" THEN GOTO 1249: Hk Kreis/ 1138 KEY DEF 4,1,242 
Oval 1148 KEY DEF 13,1,243 
6089 IF a%="-" THEN GOTO 1599: 34% Koordi 1159 KEY DEF 14,1,166 
naten 1168 KEY DEF 3,1,231 
618 IF as="m" THEN GOTO 1639: IH maskie 1178 CURSOR 1 
rt zeichnen 1188 as=INKEYs 
628 IF as="w" THEN GOTO 1739: Hr Koordi 1198 IF ag="*" THEN CALL &BB2B 
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IF ag="*" THEN GOTO 39% 
PRINT as} 
00T0O 1189 


I HRHAHHHAHHRHHHHE 

'%* Kreis / Oval * 

I HRHHHHRBHHRRRBHRE 

’ 

PRINT#2," "as: PRINTH2 

INPUT#2,*" ri= ",rl:’## Ovallaenge 
INPUT#2,* rb= ",rbi’H% Ovalbreite 
'Hk Ovallaenge=sOvalbreite ergibt K 
“r 

CL$#2 

PRINT CHR®$ (23) +CHRS(1) } 

xaxim: yayıkmı rlerlim: rberbim 

ORIGIN x+9,y+h: ’HH Kreis/Oval zeic 


MOVE COS(M)Kr1,8INID)rb 

FOR i=8 TO 374 STEP schrittw 

DRAW COS(i)Akr1,5SIN(I)&rb, 1 

NEXT 

as=INKEYS: IF aß="" THEN 1398 

IF ag="*" THEN GOTO 1478 

ORIGIN x+9,y+h: ’MHHt Kreis/Oval loes 


MOVE COS(När1,5IN(A)irb 
FOR i=8 TO 374 STEP schrittw 


DRAW COS(i)Xr1,SINti)*rb,3: NEXT 
G0SUB 3338 

G0TO 1348 

ORIGIN g,h 

GOTO 418 

I HRRHRRRRHRHHHRRHRRHRL 

'% Koordinatensysten * 

I IHRHRRRHRRABHHRRHHHHRE 

1) 

PRINT#2:PRINT#2, " a8 
MASK 49 

MOVE -6408,2 

DRAW 648,9:MOVE 9, -400 


DRAW 9,4290:MOVE 9,8 
MASK 255 

ORIGIN 9,h 

G0TO 398 


BRSHHARHRRHRRRRHARRHHR 
’% maskiert zeichnen * 
HRHRRARBBRBBASHHBHHN: 
’ 


PRINT#2:PRINT#2, ® 
xexim: yaykmı h=hftm 
MASK 5: DRAW x,y 

MASK 2355 

G0TO 399 

1] 


I HBHHHHRBBHBRABHHHHHHBHEN 
'% Koordinaten loeschen * 
HBRHRRRBHRBHRRRHBHHHHHDE 


1768 ° 

1778 PRINT#2:PRINTH2," 528% 

1788 MOVE -648,0:MASK 8 

1798 DRAW 649, 2:MOVE 9, -488 

18098 DRAW 2,4088 

1818 MASK 235 

1828 ORIGIN 9,h 

1839 GOTD 398 

1848 ' 

1858 IHHHRRRARHHARHHRRRHERHHRHE 

1868 ’% Bezeichnen der Grafik * 

1878 HHRRRHHRRRRHHHHHBHHRHHHHR 

1888 °’ 

1898 PRINT"Bezeichnung der Grafik (max.8 
Zeichen)" 

1988 PRINT:PRINT"Nur wenn Skizze gespeic 
hert werden soll, sonst ENTER? 

1918 PRINT:PRINT:INPUT"> "sbilds: PRINT 
1928 IF LEN (bilds))8 THEN PRINT"Ueber 8 
Zeichen !":PRINT 

1938 IF LEN (bild®)>8 THEN G0OTO 1898 
1948 RETURN 

1938 °’ 

1968 HHHHRHRRHHRHHHHHRHHHHHHE 

1978 ’% Speichern der Grafik * 

1988 "HRRHHRHRRHRRRRRHHRRHHHHBE 

1999 ’ 

2228 ORIGIN 8,9:SAVE bild®#,B,49132, 16383 


2018 


as=INKEYS: IF a6="" THEN 2910 
G0TO 998 


' HHHRRHRBHRHHHEHE 

’%* Grafik laden * 

' ARRRRRRRRAHHHHHE 

MODE 2:PRINT"Grafik laden " 
PRINT:PRINT"Bezeichnung ( )L{ Taste 


LOCATE 1,18:PRINT"nein = ENTER" 
aß=INKEYS: IF aß="" THEN GOTO 2118 
IF a@="1" THEN GOTO 2138 ELSE GOTO 
LOCATE 1,6:1NPUT"der Grafik :"Ibil 
CLS 

ORIGIN 2,8 

LOAD bilde 
WINDOWN2, 78,68, 1,3: PENN2,9:INK 3,9: 


PAPER#2,3:CL5#2 


PRINT#2, "Bezeichn. :" 
INPUT#2,bild# 

CLEH2 

ORIGIN 9,h 

60T0 378 

’ 


EIIIELEIEEEEREEE EEE) 
’%* Masstab berechnen # 
ES UIIEIDICEEEN EEE, 
1) 


CLS 
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2298 LOCATE 39,18: INPUT"Masstab 1:",mas 


23098 m=37. 735849 1/ (mass/199) 
2318 RETURN 


 HRRHBHRBRHBHHHRHBHE 
’%* Hardcopyroutine * 
I YHHHRRRRRRRRRHBHHHRE 


2368 ' 

2379 CLS 

2388 LOCATE 18,1:PRINT CHRS(138) I STRING® 

(69, CHRB( 134) ) ICHRE(1S6) 

2398 FOR i=2 TO 28:LOCATE 12,i:PRINT CHR 

(149) 

2428 LOCATE 71,1: PRINT CHRE(149) :NEXT 

2418 LOCATE 18,21:PRINT CHR®(147) STRING 

(68, CHRE( 134) I) ICHREL 133) 

2429 LOCATE 32,5: PRINT’--Raumplan 
-"SLOCATE 32,6: PRINT _________ 
“ 

2438 LOCATE 27,9: PRINT" 

es Zimmers" 

2448 LOCATE 32, 12:PRINT CHRS(1649)|" Wern 

er E.J. Arndt" 

2458 LOCATE 32,14:PRINT" Wiesbaden / 19 


Einrichten ein 


2468 p=kABBD: MEMORY p-1 
2478 n=p 
2480 READ a® 
IF as="EOF" THEN RETURN 
2598 POKE n,VAL("k"+a8)inent+i 
2318 GOTO 2488 

’ 


25338 DATA te,9,28,b,te,3,28,7,f8,4,28,3 
‚fe,7,c0,32,29,be,cd,d8,bb,e5,dS,cd,dS,b 
b,e3,dS,21,@,20,22,2e8,be,21,6,2,22,2c,be, 
21,2,20,22,2a,be,3a,29,be,fe,2,28,34,te,4 
‚28,12 

2549 DATA 6,6,21,2a,be,dd,4e,98,71,dd, 23 
‚23,18,77,fe,3,28,1e 

2358 DATA dd,6e,2,dd,66,1,dd,Se,2,dd, 56 
‚3,cd,d2,bb,dd,6e,4,dd,66,5,dd,Se,6,dd, 3 
6,7,cd,cf,bb,cd,d8,bb,ed,53,18,be,22,1a, 
be,cd,dS5,bb,23,ed,33,18,be,22,12,be,di,e 
i,cd,ct,bb,di,ei,cd,d2,bb 

2568 DATA 6,19,21,8,be,af,77,23,18,fc,6 
‚19,2b,e3,2a,2a,be,29,83,398,2,cb,d6,2b,e@ 
3,12, 16,01,6,120,21,f,be,e35,2a,2c,be,29,e 
3,30, 2,cb,ce,2b,e3,19,t6,e1,6,18,21,t,be 
‚e5,22,2e,be,29,83,39,2,cb,Cc6,2b,e3,12,f 
6,el 

2578 DATA 21,9,9,83,d1,6,8,dd,21,20,be, 
ce35,d5,@e5,cd,f2,bb,dd,71,8,dd,23,el,di,ci 
‚13,18,ef 

2568 DATA 21,38,42,22,30,be,21,cd,ie,22 
‚32,be,21,bb,c8,22,34,be,2i1,cd,28,22,36, 
be,21,bd,38,22,38,be,21,f5,78,22,3a,be,2 
1,cd,2b,22,3c,be,21,bd,c9, 22, 3e,be,2a,e6 
‚bd,cb,fc,22,2e,be,3e,ct,32,2d,be 

2598 DATA 2a,18,be,22,ic,be,ed,Sb,ia,be 
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‚b7,ed,32,22,1e,be 

2608 DATA 2,2,2,0,0,02,0,2,2,0,0,0,2,2,2, 
18,6,6,9,cd,39,be,d® 

2618 DATA 22,12,be,22,14,be,eb,2a,ic,be 
‚eS,cd,f2,bb,di1,7a,b7,7b,289,c,te,4,32,8, 
fe,2,28,8,38,b,18,3,cd,26,bc,cd,26,be,cd 
‚26,bc,22,22,be,2a,12,be,ed,5b,14,be,b?, 
ed,32,2b,cb,7c,28,2e 

2628 DATA 11,f8,+f,2a,1c,be,19,22,ic,be 
‚2Za,ie,be,19,22,1e,be,2b,cb,?c,c® 

2638 DATA 6,1b,cd,30,be,d2,6,4a,cd,30,b 
e,6,12,cd,32,be,6,d,cd,39,be,18,82,18,c3 
2698 DATA 23,7c,67,26,2,29,5,7d,te,30,3 
8,2,2e,39,54,7d,cb,3#,85,85,5#,7d,cb, 3#, 
cb,3f,cb,3f,ed,4b,14,be,9,22,14,be, 32,16 
‚be 

2658 DATA 6,1b,cd,30,be,d2,6,5a,cd, 30,be 
‚93,cd,32,be,42,cd,39,be, 18,31 

2668 DATA di,13,3e,6,32,2c,be,3a,28,be, 
47,cd,30,be,3a,29,be,47,cd,38,be,c1,18,2 
6,38,29,be,47,cd,38,be,c1,12,14,2a,2a,be 
‚cd,29,bc,22,2a,be,21,16,be,35,28, 91 
2678 DATA 11,28,be,6,4,c5,38,3,32,2c,be 
‚6,2,C9,21,8,2,22,28,be,ia,4t,dS,2a,ie,b 
@e,7c,b7,7d,2a,2a,be,28,e,fe,4,30,a,fe,2, 
28,66, 38,62,18,2#,18,9f 

2689 DATA cd,2d,be,St,eb,7e,2e,2c, 6,28 
‚13,28,29,cb,357,28,4,cb,c6,cb,ce,86,3,28 
‚s,2d,cb,cö6,cb,ce,eb,dS,11,20,18,7c,e6,38 
‚208,3,11,68,37,19,di 

2698 DATA cd,2d,be,St,eb,7e,2e,2c,26,28 
‚13,28,29,cb,37,28,4,cb,ce,cb,d6,86,3,28 
‚Ss, 2d,cb,ce,cb,d6,eb,dS,11,9,78,7c,e6, 38 
‚29,3,11,698,37,19,di 

2782 DATA 18,4,18,20,18,2d,cd,2d,be,St, 
eb, ?e,28,2c,26,28,13,28,29,cb,357,28,4,cb 
‚de,cb,e6,e6,3,28,3,2d,cb,de,cb, e6,eb,dS 
‚11,0,+8,7c,8e6,38,20,3,11,b9,37,19, di 
2718 DATA cd,2d,be,Stf,eb,7e,2e,2c,a6,28 
‚13,28,29,cb,37,28,4,cb,e6,cb,ee,06,3,28 
‚3, 2d,cb,e6,cb,ee,eb,18,ae,EOF 

2728 ' 

2738 IHHRRRHRRHHHHARHHBHHRHHHHHHHFE 

2748 ’% Einzeichnen des Rechtecks % 

2758 HHHRHARRRHHHHRRHHHHRHHRHHHHNE 

2768 °’ 

DEG 

2788 CLS#2 

2798 n=90 

2808 CLS#2 

2818 PRINT#2, "Werteingabe" 

2828 GOSUB 3278 

xaxtm: yzykmic=cim: asaim 

2849 c=c/a 

2659 b=a 

2869 weg+w-180 

2878 ° 

IHRRRRRRRHE 

’%* Laenge * 

IHRHHRHRRHE 


LISTING 


2710 ' 
2915 PRINT CHRS{23) +CHRS(1)} 
2928 ORIGIN x+g,yth 
2938 DRAW c#HtaxSIN(w)) ,c#lbRCOStw)),1 
2949 ORIGIN x+(axXSIN{w+9) )+9,y+bHCOS (w 
+92))+h 
2959 DRAW cHtaXSINtw)) ,cHlbHCOSCW)),1 
2968 ' 
2978 URAN 
2988 '% Breite * 
2970 A 
3898 ' 
3818 ORIGIN x+(axXSIN(w+99) ) +9, y+ (bRCOS Im 
+99)) th 
3828 DRAW axtSIN(n-99) ,b+C0S(w-99) ,1 
3938 ORIGIN x+(c#laxSIN(w))) +9, y+ic#ibtC 
0S{w)))+h 
3948 DRAW aXSINI(n+99) , DXCOStw+9Q) „1 
3868 ORIGIN 9,h 
30780 as=INKEY#S: IF as="" THEN 3078 
3989 IF as="*" THEN GOTO 418 
1] 


3198. HRRRRRRRBHRRRRRRRRRRRRRFN 
3118 '’%* loeschen und bewegen * 
3128 HHRHAHARHHRRHRRRARHRHHHR: 
3138 ’ 
3158 ORIGIN x+9,y+h 
3169 DRAW cHtaxXSIN(w)) ,c#lbHC0OSCWw)),3 
3178 ORIGIN x+(aXSIN(w+9Q) ) +9, y+(bXCOS(w 
+98))+h 
3188 DRAW cHtaxSIN(w)) ,c*lbHC0SCw)),3 
3198 ORIGIN x+taxSIN(w+98)) +9, y+(bRCOS (m 
+78))+h 
3208 DRAW atSINIw-99) ,bHCOS(w-99),,3 
3218 ORIGIN x+ic#tatSIN(w))) +9, y+tic#ibtC 
0S{w)))*h 
3228 DRAW atSIN(w+99) , bHCOS(w+98) ,3 
3230 aw=INKEYS: IF as="" THEN 3239 
3245 IF as="#" THEN GOTO 418 
3246 LOCATEN2, 72,1 
3247 PRINT#H2," x= "SUSING "HH. HH"IxX/m 
3248 PRINT#2," y= "JUSING "RH.HH"Iy/m 
3249 GOSUB 3359: ’4% bewegen 
3259 GOTO 2928 

’ 


3278. IHRRHRRRRRRRRRRHHHRHRHHHHK 
3288 '%* Eingabe Laenge/Breite + 
IRRRRRRRRRHHHRRRRRHRRHHER 


3398 ' 
3319 CLS#2 
3329 INPUTH2," L= "Ic 
3338 INPUT#2," B= "ja 
3332 IF c=8 THEN c=9.82 
3334 IF a=8 THEN a=9.92 
3335 CLS#2:CALL &BBO6 
3349 RETURN 

’ 


3368 HHRHRRRRRRHRRRARRRRRHRRHRRRHHHHGEE 


3378 ’% Subroutine Moebel/kKreis bewegen 


* 

3388 HHHHHRHARRRRHHRHRRHHRRRRRRSRHEIAEN 
* 

33998 ' 

3498 IF as=CHR8(224) THEN w=w+9.3 

3495 IF a®=CHR#(188) THEN w=w-9.5 

3418 IF a®=CHR#(248) THEN wen+m/ 19 

3429 IF a®=CHR#(243) THEN x=xt+i 


t \ 
_t- 


Ecktisch 


Heizung 


3439 IF a®=CHR#(247) THEN x=x+m/10 
3449 IF a®=CHR#(242) THEN x=x-1 
3458 IF a®=CHR8(246) THEN x=x-m/10 
3468 IF a®=CHR6(241) THEN y=y-1 
3478 IF a®=CHR#(245) THEN y=y-n/10 
3488 IF a®=CHR6(249) THEN y=y+1 
3498 IF as=CHR8(244) THEN y=y+n/1d 
3508 RETURN 


MONOPOLY 


Weil Hendrik Frenzels Listing zudem noch recht über- 
sichtlich ist, bedarf es keiner weiteren Erklärung. 
Richten Sie sich für einen langen Abend ein, wir wün- 
schen viel Spaß. 


Ile 
8 
Baia] — 
Steuer | | 


k 
Parkste. | | ° 


NUERFEL 


- written by HENDRIK FRENZEL 


FEBErEN 


Monopoly ist wohl eines der beliebtesten Brettspiele 
für zwei bis vier Personen. Die Regeln dürften bekannt 
sein: Es geht darum, möglichst viel Geld durch Immo- 
bilien zu verdienen. 
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LISTING 


15 °'% MONOPOLY * 
18 ’%* von * 
28 ' Hendrick Frenzel % 
22 fuer * 
25 Schneider aktiv * 
28 CPC 464/664/6128 * 


| 


48 MODE 1:INK 8,8:BORDER 8 

S8 LOCATE 12,5:PRINT"HENDRIK FRENZEL":LO 
CATE 18,7: PRINT"and":LOCATE 12,19; PRINT" 
Schneider-aktiv":LOCATE 16,13: PRINT"pres 
ents":LOCATE 12,16: PRINT''MONOPOLI 
u 


628 REM initialisierung 

78 ENV 1,12,-18,3,5, 15,4: ENT 1,28,25,35 

69 DIM namei®(41),name26(41) werts(41),p 
ositionx(41), positiony(4i),miete(4i1),mie 
tei(41),miete2(41),niete3(41) ‚miete4(41) 
‚nieteS(41) ,baukosten(41),andereli41),an 
dere2(41) 

98 DIM besitzi6(4,41),besitz26(4,41),bes 
itz3(4,41),hauszahl (41) 

188 SYMBOL AFTER 33 

119 SYMBOL 38,16,49,68,2534,1380,186,170,2 
s4 

128 REM telder einlesen 

138 FOR t=1 TO 48 

148 READ namei$(t),name2$(t) ,wert$(t),po 
sitionx(t),positiony(t) ,‚niete(t) nietelt 
t) ,mieteZit) miete3(t) ,miete4it) ,mietest 
t),baukosten(t) ,anderel(t),andere2(t) 
1598 NEXT t 

168 FOR t=1 TO 189 

178 READ sonderfelds(t) sonderfeldzahlun 
g(t) 

189 NEXT t 

1?@ REM spielerfiguren aussuchen 

2989 CLS:INPUT"Wieviele Spieler wuenschen 
Sie (2-4) "janzahl 

218 IF anzahl(2 OR anzahl>4 THEN 299 

228 FOR t=1 TO anzahl:strecke(t)=1:geld( 
t)=28888: NEXT 

232 FOR t=1 TO anzahl 

248 PRINT"Nane des"jtj". Mitspielers":IN 
PUT spielersit) 

258 PRINT"Suchen Sie sich ein Symbol aus 
"ıxm236+t 

268 PLOT 179,329: DRAW 299, 329:DRAW 299,2 
73:DRAW 178,273:DRAW 179,328 

278 LOCATE 13,7:PRINT CHRS(242) 35" 
RS(243) 

288 LOCATE 8,12: PRINT"(Danach ’ENTER’)": 
GOTO 338 

299 as=INKEYS:IF a$="" THEN 299 

3298 IF a®=CHR8(13) THEN 378 

319 IF a$=CHR86(242) THEN x=x-1 

329 IF a$=CHR8(243) THEN x=x#+t1 

338 IF x<{33 THEN x=235 

348 IF x)255 THEN x=33 


"ICH 
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358 LOCATE 15,7:PRINT CHRS(x) 

369 G0OTO 298 

378 zeichen(t)=x 

389 CLS: NEXT 

379 REM strassen aufbauen 

INK 1,8 

418 MODE 2:TAG:x=1:5FOR t=1 TO 11 

428 MOVE x,398: PRINT namelstt)j 

438 MOVE x,378: PRINT nane2$(t)} 

499 MOVE x,348: PRINT wertsit)j 

4529 MOVE x,75:PRINT namei#(32-t) | 

468 MOVE x,35: PRINT nane28(32-t)} 

478 MOVE x,23: PRINT wert$(32-t)} 

IF t=1 THEN x=x+29 

#99 x=x+33:NEXT:y=313 

S88 FOR t=12 TO 29 

318 MOVE 561, y:PRINT namel$(t)}5 

528 MOVE 1,y:PRINT nameis(32-t)}j 

539 yay-27: NEXT 

548 REM spielfeld zeichnen 

3352 PLOT 98,28:DRAW 639, 0:DRAW 639,399: DRA 
W 9,399: DRAW 9,8 

562 PLOT 88,88:DRAW 3559,88: DRAW 559,319: 
DRAW 82,319: DRAW 89,88 

578 FOR t=88 TO 339 STEP 53 

388 PLOT t,2:DRAW t,128: PLOT t,299: DRAW 
t,399 

598 NEXT 

628 FOR t=88 TO 319 STEP 26.5 

618 PLOT 2,t:DRAW 198,t:PLOT 539, t: DRAW 
639,t 

629 NEXT 

638 PLOT 1299,192:DRAW 1908,299:DRAW 539,2 
9F:DRAW 539,199: DRAW 108,198 

698 MOVE 278,259: PRINT'WUERFEL"} 
6352 PLOT 279, 239:DRAW 370, 238:DRAW 379,1 
B89:DRAW 278, 188:DRAW 270,238 

668 REM spieler auffuehren 

678 FOR t=1 TO anzahl:MOVE 138,319-t%29: 
PRINT CHR$&(zeichen(t))5}" = "jspieler$(t) 
I: NEXT 

688 MOVE 172,128: PRINT"MONDPOLY - writte 
n by HENDRIK FRENZEL’} 

672 REM datas der strassen 

788 DATA LO 8,,,6,3, 55339331, , Bad,allee, 
1209, 16,6,49, 200,600, 1820, 3200, 5990, 1090 
‚9,4,Sonder,teld, „22,6, 551339 1, Turm,all 
ee,1200,29,6,80,420, 1200, 3600, 6400, 9008, 
1009, 2,2,5teuer ‚4000, , 36,6, u 10 1 13 

718 DATA Sued-,Bahnh. ‚4800,43, 6, 110 11 1 05 
‚Mosel,allee, 2900,58,6,120,600, 1809, 5498 
‚80222,112009,1808,9,18,Sonder,teld,,357,6, 
ss ss, ,Elisen,allee, 2009,64,6,129,608, 
1899, 5422, 8090, 11009, 19000,7,198 

728 DATA Post,allee, 24090,79,6,169, 800,28 
20,6009,97009,12280,10908,7,9,Getaengris,, 
KAASTERRENTE N 

738 DATA Seestrasse, ‚2900,73,6,200,19009, 
3209, 9209, 12500, 15000, 28088,14,15,E-Werk, 
»3880,73,8, 153951, 29,29,Hatenstr., , 2898, 
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73,9.3,289,1009, 3000, 90099, 12599, 15090, 29 
28,12,15,Neue Str.,,3209,73,11,249,1208, 
3600, 10009, 14000, 18009, 20809,12,14 

748 DATA Westbahnh. ,,„4008,73,12.3, go 9995 
1, ,Muenchner strasse, 36099,73,14.3,289, 14 
020,49099, 11009, 15099,19099,20009,19,29,Son 
derteld,,5, 73,16, 519199 1 5 ,Wienerstr. ,,368 
8,73,17.3,280, 1409, 4200, 11000, 15090, 1998 
2,20990,17,29 

758 DATA Berliner, strasse, 4000,73,19.3,3 
20,1600,4409, 12000, 16000, 20009,2008,17,1 
9 

768 DATA FRE I,PARKEN, 579,24, u uo0 nn» 
Opern,allee,4408,69,19.3,400, 2000, 6000, 1 
3209, 18300, 22099, 30009, 24,25,Sonder, feld, 
»63,19.S, non 1011, Museums, allee, 4490,57, 
19.5, 369, 1800, 5009, 14909, 175080, 21009, 308 
8,22,25 

778 DATA Musik,platz,4800,59,19.5,368,18 
20,5009, 14000, 17509, 21900, 3000,22,24,Nor 
d-,Bahnh. ,9009,43,19.5, 1110011, , Wagner,a 
lle#,3299,36,19.35,440, 2200, 66400, 16000, 19 
s200,23099,30008,28,30 

788 DATA Mozart,allee,5200,28,19.3,449,2 
200, 6600, 16009, 19300, 23009, 3200, 27,30, Wa 
sser, nerk,5008,28,19.5, 5 19119,,43,13,5tra 
uss,allee,5609,15,19.5,389,2490,7200,178 
20, 20300, 24000,3099,27,28 

798 DATA Gehe, in das, Gefaengnis,8,22,,;,, 
ssorn ,Rathauspl.,,68990,12,19.5,520, 2609, 
7800, 18000, 22000, 253509,40929,33, 35, Haupts 
tr.,,602080,12,18,320, 26099, 7800, 18000, 2290 
0, 253309, 4800,32, 33 

889 DATA Sonderteld,,,12,16, 5,15 199, , Bah 
nhofst.,,6499,12,14.2,569, 3200, 7000, 2008 
0, 24009, 26000, 4909,32,33,Hauptbahn. ‚ ‚488 
0,12,13, 559599 ,, Sonderteld,,„„12,11, 5555 
ss, ,,Parkstr.,,7099,12,9.3,720, 3300, 1008 
08,229099, 26000, 30009, 4200,49,48 

819 DATA Steuer, ,2009,12,8, 5111191, , Schi 
ossal.,,8009,12,6,1000, 4000, 12000, 28080, 
34000, 40000, 4999, 38,38 

828 REM hauptteil 

839 INK 1,26 

848 REM bild einpokenHHHHRHHRHHRHHHHHAHR 
DEULLLCKUCCEERDER EU 

859 RESTORE 2118 

868 FOR t=49099 TO 4981 1:READ k:POKE t,k 
NEXT t 

878 CALL 40088 

888 REM bild einschalten HHHHRHHAHHHHHHHE 
ALLILICIEEUEE EEE 

899 RESTORE 2129 

989 FOR t=49059 TO 48861:READ k:POKE t,k 
sNEXT t 

919 CALL 490858 

928 TAG: IF pasch()® THEN 949 

939 MOVE 262,149: PRINT" " 
pasch=d: pa=9: zugezug+i:IF zug=anzahl+1 T 
HEN zug=i 
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948 MOVE 278,178: PRINT spieler®(zug)j" i 
st an Zug ui 

958 REM wuerfelroutiene anspringen 

969 GOSUB 1428 

978 REM alte position loeschen 

988 MOVE positionx(strecke(zug) )%7.5,419 
-positiony(strecke(zug) )#L6: PRINT CHRB(3 
2) 

998 REM neue position berechnen 

1898 strecke(zug)=strecke(zug) +nuerteli+ 
wuerfel2 

1818 IF streckeizug))49 THEN streckeizug 
Jastrecke(zug) -48:geld(zug)=geldizug) +48 
89:los=1:' wenn ueber los dann 4889 dm 
1928 IF strecke(zug)=31 THEN streckeizug 
Jallige=i 

1838 IF pasch=3 THEN strecke (zug)=il:;pa= 
ı 

1848 MOVE positionx(strecke(zug))%7.3,41 
8-positiony(strecke(zug) )#16: PRINT CHRE( 
zeichen(zug))} 

10858 '’bild einpoken 

1848 RESTORE 2118 

1879 FOR t=49088 TO 48Q11:READ K:POKE t, 
k:NEXT t 

18828 CALL 49888 

1899 as=INKEYS: IF as="" THEN 1096 

1198 REM umschalten auf anderen bildschi 
rm 

1118 MODE 2: TAGOFF 

1128 IF los=i AND strecke(zug)(>i THEN P 
RINT"Sie sind ueber L 0 S gekommen, und 
erhalten 4298 DM": los=d 

1138 REM sonderfaelle 

1148 IF strecke(zug)=1 THEN geld(zug)=ge 
ld(zug) +4999:PRINT"Sie stehen auf L O0 S, 
und bekommen 8888 DM":GOTO 1449:REM auf 
los gekommen +89299 dm 

1159 IF strecke(zug)=5 THEN geld(zug)=ge 
ld(zug) -4889:PRINT"Sie muessen 4009 DM E 
inkonmenssteuer bezahlen": tp=tp+4999: 00T 
OD 1449:REM 4988 dm steuern zahlen 

1168 IF streckeizug)=39 THEN geld(zug)=g 
eld(izug) -2809:PRINT"Sie muessen 2099 DM 
Zusatzsteuer bezahlen": tprfp+20088:60T0 1 
448:REM 2088 dm steuern zahlen 

1178 IF strecke(zug)=21 THEN geld(zug)=g 
eld(zug) +Fp:PRINT’Sie sind auf Freiparke 
n gekommen, und erhalten"’stfpj" DM’;tp=8: 
GOTO 1449:REM freiparken 

1189 IF strecke(zug)=11 AND ge=d AND pa= 

8 THEN PRINT"Sie besuchen das Gefaengnis 
":G0T0 1448:REM getfaengnis besuchen 

1199 IF strecke(zug)=11 AND pa=8 THEN ge 
Id(zug)=geld(zug) -1899: tp=tp+1P08: ge=d:P 

RINT"Sie wurden gefasst und eingesperrt. 

Sie nussten 1298 DM Strafe zahlen":GOTO 
1449:REM ins gefaengnis gekommen/1099 dm 
strafe 


1298 IF streckeizug)=3 OR streckeizug)=8 » 
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OR strecke(zug)=18 OR strecke(zug)=23 0 
R strecke(zug)=34 OR strecke(zug)=37 THE 
N G0OSUB 2919:G60T0 1449:REM sondertelder 
1218 IF pasch=3 THEN geld(zug)=geld(zug) 
-1088: tp=tp+1000: ge=2: PRINT’Sie wuerfelt 
en drei mal einen Pasch, und kommen in d 
as Gefaengnis":PRINT’Sie muessen 1028 DM 

Strafe zahlen":pasch=8:G0T0 144@:REM 3 
mal pash 
1228 PRINT spieler$(zug)j" befindet sich 

auf der "Inamel®(strecke(zug) )jnaneZ#(s 
trecke(zug)) 

1238 FOR t=1 TO anzahl 
1248 FOR u=i TO 48 
1258 IF nanel®(strecke(zug) )<)besitzis(t 
‚u) THEN 1359 
1268 PRINT"Diese Strasse gehoert "jspiel 
erst) 

1278 IF strecke(zug)=6 OR strecke(zug)=1 
6 OR strecke(zug)=26 OR strecke(zug)=36 
THEN G0SUB 18790: IF spieler®#(zug)<)spiele 
r#{it) GOTO 1329 ELSE 1448:REM bahnhoefe 
1268 IF strecke(izug)=13 OR strecke(zug)= 
29 THEN GOSUB 1968: IF spieler#tzug)<)api 
eler®(t) GOTO 1328 ELSE 1448:REM wasser- 

e-werke 

1298 G0SUB 1598 
138% PRINT"und es stehen "Ihauszahl(stre 
cke(zug))j" Haeuser darauf" 

1318 IF spieler®(zug)=spieler®(t) THEN 1 
668 
1322 PRINT"’Es muessen"ijmietej "DM Miete a 
n "Ispieler®(t))" gezahlt werden" 

1338 geldizug)=geld(zug) -niete:geld(t)=g 
eldit)+miete 
1348 G0TO 1449 
1358 NEXT u:NEXT t 
1368 PRINT"Diese Strasse kostet "jnwerts#i 
strecke(zug))}" DM wollen Sie sie kaufen 

(J/N® 
1378 INPUT trages 
1388 IF UPPERSitfrage®)<C)"J" THEN 898 
1398 IF geld(zug)-VAL(wert#(strecke(zug) 
I) THEN PRINT’Die Strasse ist zu teuer 
‚sie haben nicht mehr gnuegend Bargeld": 
GOTO 1448 
1988 geld(zug)=geld(zug)-VAL (werts(strec 
keizug))) 

1418 strassenzahl (zug) =strassenzahl (zug) 
+ 
1428 besitzi®(zug,strassenzahl (zug) )znam 
el®(streckeizug)) 

1430 besitz26(zug,strassenzahl (zug) Janam 
e2#(strecketzug)) 

1448 PRINT"Ihr Barvermoegen betraegt jet 
zt"jgeld(zug) "DM" 

1458 PRINT"Sie besitzen folgende Grundst 
vecke:" 

1468 FOR i=1 TO strassenzanhl (zug) 

1478 PRINT besitzis(zug, i)ibesitz2s(zug, 
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IDITAB(ZO) 5 "mit"Ibesitz3(zug, i)] "Haeuser 
"ISTRINGS(besitz3(zug,i), "&k") 
1488 NEXT i 
1498 a®=INKEYS: IF as="" THEN 1498 ELSE 8 
2 
1588 REM haeuserzahl finden 
1518 ON hauszahl (strecke(zug)) GOTO 1528 
‚1530,1949,1559, 1569, 1578 
1528 miete=niete(strecke(zug) ):RETURN 
1538 niete=nietel istrecke(zug) ): RETURN 
1548 nietesniete2istrecke(zug) ) : RETURN 
1559 mniete=niete3(strecke(zug) ):RETURN 
1568 niete=nieted(strecke(zug) ):RETURN 
1578 miete=niete4(strecke (zug) ) :RETURN 
1568 niete=nieteS(istrecke) :RETURN 
1598 REM wuerfelroutiene 
1628 wuerteli=INT(RND#6) +Liwuerfel2=INT( 
RND#6) +1 
1618 SOUND 1,1999,3,1,1,1,2 
1628 MOVE 272, 218:PRINT wuertellf"+"inue 
rfel2)"="jwuerteli+twuertel2j 
1639 a@=INKEY#: IF aß="" THEN 1608 
1649 IF wuerfeli=nuertel2 THEN pasch=pas 
Ch+15MOVE 262,148:PRINT paschi". PASC 
H"} ELSE MOVE 262, 148: PRINT" 
"j:pasch=d 
1638 RETURN 
1668 REM sonderfaelle 
1678 REM steht schon ein hotel? 
1689 IF hauszahl (strecke(zug))>4 THEN 18 
sg 
1698 REM sind schon alle noetigen grunds 
tuecke da? 
1788 FOR t=1 TO strassenzahl (zug) 
1718 IF nanel®(anderei (strecke(zug)))=be 
sitzi®s(zug,t) THEN 1738 
1728 NEXT:GOTO 1858 
1738 FOR t=1 TO strassenzahl (zug) 
1748 IF nanei®(andere2(strecke(zug)))=be 
sitzis(zug,t) THEN 1768 
1758 NEXT:GOTO 1858 
1768 INPUT"Wollen Sie ein Haus dazukaufe 
n"Itfrages 
1778 IF UPPER®@(trages)<)"J" THEN 1858 
1788 PRINT"Ein Haus kostet sie"'jbaukoste 
n(strecke(zug)) "DM 
1798 IF geld(zug)-baukosten(strecke(zug) 
IC THEN PRINT"’Das Haus ist zu teuer,sie 
haben nicht mehr gnuegend Bargeld":60T0 
1448 
1888 geld(izug)=geld(zug) -baukosten(strec 
keizug)) 
1818 hauszahl (strecke(zug) )=hauszahl (str 
ecke(zug))+i 
1628 FOR t=1 TO strassenzahl (zug) 
1838 IF besitzi$(zug,t)=namelß(streckeiz 
ug)) THEN besitz3(zug,t)=hauszahl (streck 
e(zug)) 
1849 NEXT t 
1859 60T0 1449 
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1668 REM wieviel bahnhoefe besitzt man? 
1878 FOR x=i TO strassenzahl (t) 

1888 IF INSTR(LOWER®#(besitzis(t,x)),"bah 
n")<>8 OR INSTRILOWERSCbesitz2#(t,x)),"b 
ahn")t>8 THEN bahnhoefe(lt)=bahnhoefe(t)+ 
l 


1898 NEXT x : Getestet: 
1988 ON bahnhoefeit) GOTO 1910,1920, 1938 ER Lichtgriffel 
‚1949 


1918 miete=399: bahnhoefe(t)=2d: RETURN 
1928 niete=1299:bahnhoefe(t)=9: RETURN 
1939 niete=2988:bahnhoefe(t)=9: RETURN 
1949 miete=49989: bahnhoete(t)=9: RETURN 
1959 ’strassenwerke zaehlen 

1968 FOR x=1 TO strassenzahl(t) 

1978 IF INSTR(LOWER®(besitzis(t,x)), "wer 
k")C>8 OR INSTR(LOWERS(besitz2#(t,x)),"w 
erk")t>8 THEN werke(t)=werke(t) +1 

1988 NEXT x 

1998 IF werke(t)=i THEN miete=(nuerfell+ 
wuerfel2)#80 ELSE miete=(wuerfell+nuerte 
12)%298 

2808 werke(t)=2:RETURN 

2818 'REM sonderfelder 

2028 auswahl=INT(RNDF1Q) +1 

2838 PRINT spieler®#(zug)$" steht auf dem 
Sonderteld" 


2048 PRINT sonderteld®(auswahl) COMPUTER-TITEL 
2058 geldizug)=geld(zug)+sonderfeldzahl 
a ERORTT T AUS DEM VERLAG 


2862 RETURN 
2078 ' datas fuer sonderfelder 


2088 DATA Die Bank zahlt Ihnen eine Divi 


dende von 1298 DM,1900,Sie zahlen an das REVUE MSX: 
Krankenhaus 2098 DM, -29898, Ihre Jahresre FF vsmasazın DER STANDARD 
nte (2088 DM) wird faellig,2020,Sie erbe IE FÜR FREUNDE ÜR 

n 2000 DM, 2000, Bank-Irrtum zu Ihren Guns EEE UNER r V IHREN 
ten.Sie erhalten 4208 DM, 4908 ATEN PC 


2098 DATA Miete und Zinsen werden faelli 
9.Die Bank zahlt Ihnen 3808 DM, 3099,Stra 
fe fuer zu schnelles Fahren 808 DM, -8089, 
Zahle Schuldgeld DM 3099, -3088, Ihre Arzt 
kosten betragen 1588 DM,-13589,Sie verlie 
ren vor Gericht und zahlen 1298 DM,-1298 


21208 REM datas fuer bildverschiebung 
2110 DATA KO1L,Ktt,&34,&11,620,Kkde,&21,&0 
d,&cd,ked,kbd,&c9 

2128 DATA KOl,ktt,&3t,K11,&00,&cQ,&21,%2 
d,k4e,ked,&bd, kc9 


AKTIV COMPUTERN 
MIT 
SCHNEIDER 


AKTIV 
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HUGO 
DER WURM 


Hans Jürgen Kraft, Student der Ingenieur-Informatik 
an der Fachhochschule in Dortmund, ist einigen von 
Ihnen vielleicht bekannt, obwohl Ihnen der Name 
nichts mehr sagt. Zur Erinnerung: Zusammen mit ei- 
nem Freund trat er in der Sendung „Wetten, daß...“ 
auf. Das Team gewann die Wette, in der es darum 
ging, 150 Langspielplatten nur an ihren Rillen zu er- 
kennen. Daß er auch mit dem Computer umgehen 
kann, bewies er mit seinem Quizspiel „Braindust‘, 
das demnächst veröffentlicht wird. Für SCHNEIDER 
AKTIV entwickelte er das Wurmspiel „Hugo“. 
Lassen wir ihn hierzu selbst zu Worte kommen: 


„Es gibt Ideen, die werden nicht alt. Und so ist auch 
der futterfressende und dabei immer länger werdende, 
ach so niedliche Wurm immer wieder Ausgangspunkt 
für neue Programmschöpfungen. So auch Hugo, er 

ist der wohl liebenswerteste Wurm, der je program- 
miert wurde. Er frißt Noten, oh Entschuldigung, na- 
türlich muß es heißen, er diniert am liebsten bei 
Musik und was liegt so näher, als daß er die Noten 
direkt verspeist. So manche hübsche Melodie wurde 
aus der Verdauungsfunktion von Hugo geboren. 
Selbstverständlich gehört zu einer solch klassischen 
Idee auch klassische Musik. Meine Wahl traf hierbei 
auf „Eine kleine Nachtmusik“ von Wolfgang Amadeus 
Mozart. Ein fast zeitgenössisches Werk unter den 
Klassikern.“ 

Das Programm selbst weiß durch 7 verschiedene 
Schwierigkeitsstufen und 3 Bonusrunden zu überzeu- 
gen. Geräusche, bzw. Musik und Grafik, wurden über- 
arbeitet und dem neuen Trend angepaßt. 

Alles in allem ein Spiel, welches auf Partys und lusti- 
gen Treffen so manches Karategame oder Strategie- 
spiel alt aussehen läßt. 
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LISTING 


10R5 ’%* HUGO * 
1219 '%* von RALF JUERGEN KRAFT * 
1815 '* FUER * 
1920 ’%* SCHNEIDER AKTIV * 
1825 ’%* CPC 464/664/6128 % 


1838 HHRHHRHAHHHRRHRRRHRHHHHRHRBHEHHHEE 
’ 


1959 ’ 

1868 DEFINT a-y:DEFSTR z:DIM ma(368,1):D 
IM m(6d, 1): MODE I 

1879 RESTORE 497Q:ii=d:FOR i=i TO 23:0=Q9 
:FOR j=el TO 16:1imii+l:READ malii,D)ines 
+matii,@):NEXT j:READ t:IF tes THEN NEXT 
i ELSE PRINT "Data-Fehler in Zeile"1399 

B+iH10:5TOP 

1880 RESTORE 4380: 1i=d: FOR i=i TO 1L2:s=9 
:FOR jei TO 32: iiwii+lsIF 11368 THEN Al 

08 ELSE READ a:s=s+ta: IF a(9 THEN malii,i 
J=at19 ELSE malii,i)=3 

189% NEXT j:READ t:IF tes THEN NEXT i EL 

SE PRINT "Data-Fehler in zeile"j449d+1%1 

8:STOP 

1188 RESTORE 4428:FOR i=1 TO 19:8=9:FOR 

j=1 TO 20:READ ais=s+a: NEXT j:READ t:IF 

s-t=d THEN NEXT i ELSE PRINT "Data-Fehle 
r in Zeile"499d+1#L9:STOP 

1119 RESTORE 4539: FOR i=1 TO 16:8=d:FOR 

j=1 TO Z0:READ a:is=s+a:NEXT j:READ t:IF 

s-t=d THEN NEXT i ELSE PRINT "Data-Fehle 
r in Zeile"I549Q+1#10:58TOP 

1128 ENV 14,3,5,1,20,0,1,15,-1,2:ENV 15, 
1,2,128 

1130 GOTO 1188 

1148 IF (5911) AND 7)<L THEN RETURN 

1150 szesz+ti:iIF 82)367 THEN GOTO 1598 
1160 IF ma(sz,2)(477 THEN SOUND I,maisz, 

2) ,ma(sz,1),9,14 ELSE SOUND i,ma(sz,®),m 

a(sz,1),0,15 

1178 GOTO 1148 

1188 BORDER ®: INK 9,9: INK 1,9:INK 3,6 
1198 CLS:ORIGIN 329, 18:FOR i!=i TO 3.3 8 

TEP 8,.dl:y!mi!rdı PLOT ee y!,1:PLOT 
794-20%i!,y!,1:3NEXT i! 

1298 ORIGIN 329,128: FOR i!=$ T0 6 STEP & 
‚Bliy!ei!A3HPLOT I2H1 !,y!,15PLOT -L24!, 

y!,1:NEXT i! 

1218 DEG:ORIGIN 320, 344:rx=72:ry=15:FOR 

asl TO Pd:xerx#C0Sia)iyurytSIN(a):PLOT x 
„Ysl:PLOT -x,y,1:PLOT x,-y,1: PLOT -x,-y, 
1!NEXT a 

1228 EVERY 280,1 GOSUB 1329 

1230 ORIGIN 329, 1@:ırx=S6:ry=1d:FOR a=L80 
TO 369:PLOT rx#C0S(a) ,ry#*SIN(a),1:NEXT 


a 

124@ INK 1,4:INK 2,24:PEN 2:EVERY 20,8 6 
OSUB 1149 

1258 ORIGIN 320,128:FOR y=@ TO Ledixuy*g 
.333333%12-1:MOVE -x,y:DRAW x,y,2:FOR im 
1 TO 2:PLOT RND#2#x-x,RND*SQ+y, 2:NEXT 1, 
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y 

1248 ORIGIN 320,29Qirx=dßiry=14:FOR asi 

TO 98 STEP S:MOVE rx*C0S(a),ry*#SIN(a):DR 

AW -rx*C0S(a),ry*SIN(a) ,2:NEXT a 

1278 p=p+1: IF p)6Q THEN peil:tflag=ei:PLOT 

1268 gx=RND#120-69: qy=RND#120-10: a=TEST ( 

ax, qy):IF a)9 THEN 1288 

1298 IF flag=i THEN PLOT m(p,2) ,mtp,1),2 

1388 PLOT gax,gy,2:m(p,A)=axim(p,i)egy 

1318 GOTO 1278 

1328 LOCATE 9,1:PEN 3itt=tt+L:0N tt GOSU 

B 1369,1370,1380, 1390, 1409, 1419, 1419, 142 

0,1429,1429,1439,1420,1420,1429,1440, 145 

8,1460, 1470 

1338 IF tt=8 THEN GOSUB 148% 

1349 IF tt=12 THEN G08UB 1559 

1358 RETURN 

1368 PRINT"Stossen Sie mit uns an, 
"RETURN 

1378 PRINT"auf ein neues Programm, 
":RETURN 


1389 PRINT" welches Ihnen 
":RETURN 

1398 PRINT"- und ihren Freunden - 
"RETURN 


1488 PRINT"viel Freude bereiten wird. 
":RETURN 

1418 PRINT" Wir nennen es ! 
"RETURN 

1428 PRINT * 
"RETURN 

1438 PRINT "Und es wurde entwickelt von! 
" SRETURN 

1448 PRINT "Die 'Kleine Nachtmusik’ 
";RETURN 

1459 PRINT "wird verklingen und das 
"RETURN 

1468 PRINT " Spiel kann beginnen 
"RETURN 

1478 PRINT " Viel Vergnusgen ! 
"RETURN 

1488 RESTORE 4420:L0CATE 28,9:PEN 3:PRIN 

T "Ein Prosit":LOCATE 31,11: PRINT "auf": 

ORIGIN 40%, 138: READ a,b:MOVE 24a, 2%b 
1498 FOR i=l TO 66:G08UB 114Q:READ a,b:l 

F a)139 THEN a=b:READ b 

1588 DRAW 2%a, 2%b,2:NEXT i 

1518 READ a,b:MOVE 2%a, 2%*b 

1528 FOR i=i TO 34:G0SUB L14Q:READ a,b:l 

F a)1S8 THEN a=sb:READ b 

1538 DRAW 2%a, 2%b,2:NEXT i 

15424 LOCATE 25,19: PEN L:PRINT CHRB(164) " 
1988 V3.1"J:0RIGIN 320, 290: RETURN 
1558 ORIGIN 99,148: RESTORE 453% 

1569 FOR i=i TO 82:60SUB L149:READ a,b,c 
‚d:IF a>68 THEN a=b:bsc!c=d:!READ d 

1578 MOVE 2%a, 2%b:DRAW Zta, 2*c,d: NEXT I 
1588 LOCATE 3,17:PEN 1:PRINT"Ralf":LOCAT 

E 4,18:PEN 2: PRINT® Juergen"’:PEN 3:L0CATE 2» 


LISTING 


7,19: PRINT"Kraft":ORIGIN 329,290: RETURN 
1599 aaa=REMAIN(L):SYMBOL AFTER 258 

1609 SYMBOL 255,69, 126,255, 255,255, 255,1 
26,68 

1610 SYMBOL 254,0,96, 248,254, 254,248,96, 


1628 SYMBOL 233,90,24,24,60,60,126,126,68 
1639 SYMBOL 252,9,6,31,127,127,31,6,® 
1649 SYMBOL 251,69, 126,126,60,60,24,24,0 
1638 GOSUB 3949:EVERY 20,1 GOSUB 3998 
1668 DIM ba(41,25) :* Bildschirmmatrix 
1678 DIM wi(19@1,1) :'’ Wurmlaengenmatri 


1688 DIM blL(IM):DIM zn(19) 

leben=3: punkte=d 

1798 voll=e2355:gift=238: futter=237 

1719 kopf1=225:kopf2=224: leer=32 

1722 mauer=143: schwoben=233: schwunten=23 
ıschnwrechts=254:schwl inks=232 

1738 neuleben=399 

1748 MODE I 

1758 FOR gp=i TO 18 

1768 ON ap GOSUB 1800,1870,1949,2010,289 

2,2170, 2230, 2320, 2390, 2470 

1778 IF leben=d THEN GOTO 3698 

1788 NEXT gp 

1799 GOTO 49838 

1888 CLS:LOCATE 11,11: PRINT "HARHHHHHHRH 

WERIRK"SLOCATE 11,12: PRINT '# STUFE 
I *":LOCATE 11,13: PRINT "HAHRHHHH: 

RRHHHHR" 

1818 FOR i=i1 TO 1999: NEXT 

1829 punkte=ß: anztutter=359: anzgift=1d:en 

dzei:anfz=3:kopf=kopfi:bonus=120:bozeit= 

sg 

1830 tinted=ditintel=23:tinte2=6:tinteg® 
il 

1848 mauertlag=d: gittzutlag=di tutterzufl 

age? 

1859 maxpunkte=spunktetanztfutter:G0SUB 25 

Sg:IF leben=d THEN RETURN ELSE punkte=pu 
nkte+bonus 

1848 RETURN 

1878 CLS:LOCATE 11,11:PRINT "HHHHHHHHKH 

KHK" :LOCATE 11,12: PRINT "* STUFE 
II *":LOCATE 11,13: PRINT "ORHHBH 

AR" 

1888 FOR i=1 TO 1889:NEXT 

1898 anzfutter=3Q: anzgitt=30: endz=el:antz 

=3:kopf=kopti:bonus=120:bozeit=4Q 

1998 tinted=I:tintel=24:tinte2=1S:tinte3 

=26 

1918 mauerflag=d 

1928 maxpunkte=zpunkte+tanzfutter:GOSUB 25 

Sg:IF leben=& THEN RETURN ELSE punktez=pu 

nkte+bonus 

1938 RETURN 

1948 CLS:LOCATE 11,L1:PRINT "IHRRRHRRHA 

WRRRHR":LOCATE 11,12: PRINT "#* BONUSRUN 

DE I %*":LOCATE 11,13: PRINT "HK 
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ARRRRHHR" 

1938 FOR ist TO I2O99: NEXT 

1968 anzfutter=I:anzgift=7Q:endzelianfze 
3: kopt=kopf2:bonus=220%:bozeit=28 

1978 tinted=e3:tintel=2:itinte2=el9;tintes= 
15 

1989 mauerflag=d 

1998 maxpunkte=spunkte+tanzfutter:GOSUB 25 
SQ: IF leben=d THEN RETURN ELSE punkte=pu 
nkte+bonus 

20288 RETURN 

2818 CLS:LOCATE Li,L1:PRINT "HABHHHHHKH 
WEHR" SLOCATE 11,12: PRINT "* STUFE 

III  &#"SLOCATE 11,13: PRINT "AHBRRHHH 
RR" 

2028 FOR i=i TO 1209: NEXT 

203% waamauer=si:senkmauer=liecken=3:max| 
aenge=s 

2049 anzfutter=3Q: anzgitft=e20: endzeliantz 
"3: kopf=kopf1:bonus=200: bozeit=39 

2032 mauerflagei 

2068 tinted=l2:tintel=sditinte2=2äditintes 
=24 

2878 maxpunkte=spunkte+ranzfutter:G0SUB 25 
SQ: IF leben=d THEN RETURN ELSE punktespu 
nkte+bonus 

2888 RETURN 

28978 CLS:LOCATE L1,11:PRINT "RHAHHAHHRRR 
WERK" SLOCATE 11,125 PRINT '* STUFE 

IV #":LOCATE 11,13: PRINT "HH 
RER" 

2188 FOR i=i TO 1900: NEXT 

2112 waamauer=2:senkmauerseliecken=S:max| 
aenge=3 

2120 anztutter=iS:anzgift=4dtendzelianfz 
a3: kopf=koptl:bonus=200: bozeit=39 

2130 mauertlag=| 

2148 tinted=iditintel=litintez=d:tintes« 
23 

2158 maxpunkte=spunktetanzfutter:GOSUB 25 
Sg: IF leben=d THEN RETURN ELSE punkte=pu 
nkte+bonus 

2160 RETURN 

2178 CLSSLOCATE 11,11:PRINT "HH 
RR" SLOCATE 11,125 PRINT "%* BONUSRUN 
DE II #":LOCATE 11,13: PRINT "Hank 
RAR" 

2188 FOR i=1 TO 1980: NEXT 

2190 waamauer=2: senkmauer=liecken=9:maxl 
aenge= 

22808 anztutter=I:anzgift=SQ; endzel:ianfze 
3: kopf=kopt2:bonus=200: bozeit=29 

2218 tinted=llitintel=6:itinte2=ld:itinte3 
=Q 

2220 mauertlag=i 

2238 maxpunkte=punkte+anzfutter:G0SUB 25 
Sg: IF leben=d THEN RETURN ELSE punkte=pu 
nkte+bonus 

2248 RETURN 

2259 CLS:LOCATE 11,11: PRINT "HHHHHRHHEH 


LISTING 


KERRRR"!LOCATE 11,12: 
v *":LOCATE 11,13: 

KERRERER" 

2269 FOR ı=1 TO 1009: NEXT 

2270 waamauerel’senkmauersi;iecken=S:;maxl 
aenges$:giftzuflagsiimauertlagel 

2280 anztutter=3Q0:; anzgitt=20:endz=el:antz 
=3:kopf=kopfil:bonuse200:bozeit=3g 

2298 tinted=e?:itintel=i4:tinte2=18:!tinte3 
=| 

2308 maxpunkterpunkte+ranzfutter:G0SUB 23 
SO: IF leben=d THEN RETURN ELSE punkte=pu 
nkte+bonus 

2318 RETURN 

2328 CLS:LOCATE IL, LLSPRINT VRERKKRKRERR 

KRRRER"SLOCATE 11,125 PRINT "* STUFE 
VI *":LOCATE 11,13: PRINT "Hk 
KRERERRRR" 

2338 FOR i=1 TO LAQQ:NEXT 

23498 waamauer=2:senkmauer=|:ecken=4: max] 
aenge=sS;gittzuflagelimauertlagel 

2350 anztutter=1S:anzgitt=30:endz=el:antz 
=3:koptskopfl:ibonus=200:bozeit=39 

2360 tinted=e4d:tintel=e2ö:tinte2=elß:itintes 
=15 

2370 maxpunkte=spunkte+ranztutter: G0SUB 25 
sd: IF leben=d THEN RETURN ELSE punkte=pu 
nkte+bonus 

2380 RETURN 

239% CLS:LOCATE 11,11: PRINT "Hr 
KRAHKRK"SLOCATE 11,125 PRINT "%* BONUSRU 
NDE III *":LOCATE 11,13% PRINT "RR 
KERKERERRER" 

2498 FOR is TO 1809: NEXT 

241 waamauerelisenkmauerzliecken=P:max| 
aenge=$ 

2420 anzfutter=lianzgift=eSdiendz=eliantz= 
3:kopf=kopf2:bonus=290: bozeit=29 

2430 tinted=15:tintel=l9:tinte2e2itinte3 
=3 

2948 mauerflagsiigittzuflaget 

2459 maxpunkte=spunkte+ranzfutter:G0SUB 25 
SO: IF leben=d THEN PETURN ELSE punktezpu 
nkte+bonus 

29468 RETURN 

2478 CLSSLOCATE 11,11: PRINT "RHHHHHHH 
KRERKERE"NSLOCATE L1,125 PRINT "* STUFE 
vii *"SLOCATE 11,13: PRINT "RRKRKk 
KRKEHHERIKR" 

29488 FOR i=L TO 1980: NEXT 

2490 waamauer=|iisenkmauersliecken=3:maxl 
aenge=3 

2509 anztutter=3Q0:;anzgift=ißtendzeliantz 
=3:koptfzkopf2:bonus»200:bozeit=3Q 

2510 tintedeiitintel=24:tinte2=6itinte3e 
18 

2528 mauerflag=zligiftzuflag=Litfutterzufl 
agel 

2538 maxpunkte=punkte+1000:G0SUB 2559: 1 
F leben=d THEN RETURN ELSE punktespunkte 


PRINT "+ STUFE 
PRINT "tr 
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+bonus 

2548 RETURN 

2558 BORDER tinted: INK Q,tinteg: INK 1,ti 
ntel:INk 2,tinte2:INK 3,tinte3:PAPER 9 
2568 FOR ie2 TO 39:FOR j=2 TO 24:bs(i,j) 
eleer:NEXT j,i 

2578 FOR i=1 TO 49:bsti,i)=zmauer:bs(1,24 
)zmauer:NEXT i 

2588 FOR i=i TO 24:bs(l,i)=mauer:bs(49,i 
Jemauer:NEXT i 

2598 PEN I 

2608 CLS 

2618 FOR i=1 TO 48:L0CATE 1,1%9.6:PRINT 
CHR$& (mauer ) 5:LOCATE i,1:PRINT CHR&6(mauer 
)5:LOCATE 49,25-1%9.6: PRINT CHR$(mauer)j 
:LOCATE 41-i,24:PRINT CHRS$(mauer) $: NEXT 
ı 

2628 IF mauerflag=d THEN GOTO 2898 

2638 FOR i=1 TO waamauer:y=1:x=RNDK32+4: 
dysi:dx=8;FOR j=l TO ecken: Jaenge=RND*ma 
xlaenge+6:FOR k=1 TO laenge 

2648 IF dy=1 THEN FOR xi=-2 TO 2:FOR yl= 
I TO 3:IF bsix+dx+xi,y+dytyl)<>leer THEN 
2698 ELSE NEXT yl,xliy=y+libs(x,y)=maue 
r:sLOCATE x,y:PRINT CHR#(mauer)} 

2658 IF dys=-i THEN FOR xi=-2 TO 2:FOR yl 
=-1 TO -3 STEP-1:IF bstx+dx+xi,y+dyryl)c 
leer THEN 2698 ELSE NEXT yl,xiiysy-libs 
(x,y)smauer:LOCATE x,y: PRINT CHR#(mauer) 
) 

2669 IF dx=1 THEN FOR xi=1 TO 3:FOR yli=- 
2 TO 2:IF bs(x+dx+xi,y+dy+yi)<>leer THEN 
2698 ELSE NEXT yl,xiixzx+libs(x,y)=maue 
r:LOCATE x,y:PRINT CHR#(mauer) 

2678 IF dx=-1 THEN FOR xi=-3 TO -I:FOR y 
is-2 TO 2: IF bsix+dxtxi,y+rdy+yi)<C)leer T 
HEN 2698 ELSE NEXT yl,xlix=ex-libsix,y)=m 
auer:LOCATE x,y:PRINT CHRS(mauer)j$ 

2660 NEXT k 

2698 IF x=1 THEN dx=i:dy=Q ELSE IF x=49 
THEN dx=-1:dy=Q ELSE IF y=1 THEN dysi:dx 
=0 ELSE IF y=24 THEN dy=-Lidx=Q ELSE IF 
dx<)8 THEN dx=Q:dy=(-1)*INT(RND*6) ELSE 

dx=(-L)*INTIRNDK6) : dy=9 

2708 NEXT j,i 

2718 FOR i=1 TO waamauer: y=24: x=RND#32+4 
sdy=-l:dx=d: FOR j=1 TO ecken: laenge=RND* 

maxlaenge+6:FOR k=1 TO laenge 

2728 IF dy=i THEN FOR xi=-2 TO 2:FOR yie 
1 TO 3:1IF bstx+dx+xi,yrdy+ylL)i<>leer THEN 
2778 ELSE NEXT yl,xliysy+libs(x,y)=maue 
rs LOCATE x,y:PRINT CHR$(mauer)j 

2738 IF dy=-1 THEN FOR xi=-2 TO 2:FOR yi 

=-1 TO -3 STEP-L:IF bstx+rdxtxi,y+dytyL)< 
leer THEN 2778 ELSE NEXT yl,xl!y=y-l:bs 
(x,y)=mauer:LOCATE x,y:PRINT CHR$(mauer) 


’ 
2748 IF dx=1 THEN FOR xi=1 TO 3:FOR yi=- 
2 TO 2:IF bsix+dx+xi,y+dy+yl)X>leer THEN 


2778 ELSE NEXT yl,xlix=x+libsix,y)=maue 39 
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r:LOCATE x,y:PRINT CHR®S(mauer) 

2758 IF dx=-i THEN FOR xi=-3 TO -I:FOR y 
i=-2 TO 2UIF bs(x+dx+xl,y+dytyl)i<C)leer T 
HEN 2778 ELSE NEXT yl,xilixex-libsix,y)n 
auer:LOCATE x,y:PRINT CHR®(mauer)j 

2768 NEXT k 

2778 IF x=1i THEN dx=sil:dy=Q ELSE IF x=49 

THEN dx=-1:dy=9 ELSE IF y=1 THEN dy=1:dx 

=D ELSE IF y=24 THEN dy=-1:dx=9 ELSE IF 
dx<)@ THEN dx=didym(-1)*INTIRND#E) ELSE 
dx=(-L)*INTERNDKG) : dy=Q 

2788 NEXT j,i 

2798 FOR i=l TO senkmauer: y-RND#16+3: xe1 
sdy=d:dx=1:FOR j=I TO ecken: laenge=RND%*n 
axlaenge+3:FOR k=1 TO laenge 

2888 FOR xi=1 TO 3:FOR yi=-2 TO 2:IF bs( 
xtdxtxi,y+dy+yi)C) leer THEN 28208 

2818 NEXT yl,xlixextdxiysytdyibs(x,y)=ma 
ver:LOCATE x,y: PRINT CHR®(mauer)J:NEXT k 
2828 IF dx<>8 THEN dx=d:dy=(-1)*INTIRND* 
6) ELSE dx=(-L)*INTERNDA6) : dy=Q 

2839 NEXT j,i 

2848 FOR i=1 TO senkmauer: y=RND#16+3: x=4 

d:dy=d:idx=-1:FOR j=el TO ecken: laenge=RND 

*maxlaenge+3:FOR k=1 TO laenge 

26858 FOR xi=-1 TO -3 STEP-1:FOR yl=-2 TO 
ZiIF baixtdxtxi,ytdy+yL)<C)> leer THEN 28 
78 

2868 NEXT yl,xiixextdxsysy+dysbsix,y)=ma 
uer:LOCATE x,y:PRINT CHRS(mauer) |: NEXT k 
2878 IF dx<C)8 THEN dx=didym(-1)"INTIRND* 
6) ELSE dx=(-L)*INT(RNDE6) :dy=P 

2888 NEXT j,i 

2898 PEN 2 

2999 i=d 

2918 WHILE ICanzfutter 

2920 x=RND#38+2: y=RND#22+2 

2938 IF bs(x,y)=leer THEN bs(x,y)=futter 
:LOCATE x,y:PRINT CHRS(#futter) ELSE G0TO 
2928 

2948 i=i+l:WEND 

2958 PEN 3 

2968 ind 

2978 WHILE ifanzgift 

2780 x=RNDK38+2: y=RNDF22+2 

2799 IF bs(x,y)=leer THEN bs(x,y)=gift:Ll 
OCATE x,y:PRINT CHRS(gift) ELSE GOTO 298 

8 

3889 i=i+1:WEND 

3818 PEN 1 

3029 x=RND#38+1: y=RND*22+2 

30838 IF bs(x,y)<>leer OR bs(x+1,y)C)leer 
OR bs(x+2,y)<>leer THEN GOTO 39029 

3049 bs(x,y)sschnlinksibs(x+tl,y)=vollibs 
(x+2,y)skopfl::LOCATE x,y:PRINT CHRS(sch 
wlinks) SCHRS (voll) ICHREIKOpF I) 3 

3850 anfz=e3:inl(1,9)axiwnlti,i)eyiwl(2,9)= 
xtlınl(2,1l)eyswi(3,Q)ax+2:wl(3,L)ey 

3868 nll1,Diexiwiti,iiey 

3078 x=x+2 
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3888 EVERY bozeit,2 GOSUB 3459 

3098 ' 

3198 z=INKEYS: IF zC>*" THEN GOTO 3109 
3118 GOSUB 3819 

3128 z=INKEYS: IF z="" THEN GOTO 3128 
313% a=ASC(z): IF a<cdtoben AND a<>tunten 

AND a‘>trechts AND a) tlinks THEN 3120 
3148 q=REMAIN(1) 

3158 ’ 

3168 tlag=d 

3178 z=INKEYS: IF zC)"" THEN a=ASC(z) 
3188 IF a=stoben THEN dx=d:dy=-1 ELSE IF 
astunten THEN dx=Qidy=1 ELSE IF a=stlinks 
THEN dx=-1:dy=Q ELSE IF a=trechts THEN 
dxel:dyad 

3198 DI:LOCATE 28,25: PRINT punkte"Punkte 
"JSEI:IxeX+axiysytdy 

3208 IF ba(x,y)=gift THEN GOSUB 3470: IF 
leben=d THEN RETURN ELSE G0T0 319% 

3218 IF bs(x,y)=voll THEN GOSUB 3548: IF 
leben=® THEN RETURN ELSE GOTO 3108 

3228 IF bs(x,y)=mauer THEN GOSUB 3610: IF 
leben=® THEN RETURN ELSE G0OTO 31908 

3238 IF bs(x,y)=schwoben OR bs(x,y)=schw 
unten OR bs(x,y)=eschwrechts OR bs(x,y)=8 

chnlinks THEN GOSUB 3549: IF leben=d THEN 
RETURN ELSE G0T0 3128 

3248 IF bs(x,y)=futter THEN flag=1:G60SUB 
3838: kopf=kopf2:AFTER 39,3 GOSUB 344% 
3258 ’ 


93268 IF punkte)>neuleben THEN neuleben=ne 


uleben+300; leben=leben+1:60SUB 3810 
3278 xiawl(anfz,D):iylewltantz,i)ibs(xi,y 
4)evoll:DI:LOCATE xi,yL:PRINT CHRE(voll) 
El 

3289 anfz=eanfz+i:1IF antz)1000 THEN anfz= 
il 

3298 wl(anfz,O)=xiwllantz,i)eyibsix,y)ak 
opf:DI:LOCATE x,y:PRINT CHRSCkopFt) I: EI 
3308 IF flag=i THEN punkte=punkte+i:IF p 
unkte=smaxpunkte THEN qg=REMAIN (2) EVERY 
28,1 GOSUB 398%: RETURN 

3318 IF tlag=d THEN 3399 ELSE IF giftzuf 
lag=d THEN GOTO 316% 

3328 PEN 3:FOR ii=1 TO 2 

3330 xa=RNDX38+1:!ya=RND423+1: IF bs(xa,ya 
)= mauer OR bs(xa,ya)=voll OR bs(xa,ya)= 
futter THEN 333% 

3349 bs(xa,ya)=gitt:LOCATE xa,ya:PRINT C 
HRS(gIFE)IJ:NEXT Hi 

3358 IF futterzuflag=d THEN GOTO 3380 EL 
SE PEN 2:FOR ii=1 TO 2 

3369 xa=RNDH38+1!ya=RND423+1:1IF ba(xa,ya 
I)= mauer OR bs(xa,ya)=voll THEN 3360 
3379 bs(xa,ya)=tutter:LOCATE xa,ya: PRINT 
CHRS(#utter) J: NEXT ii 

3388 PEN 1:G0T0 3168 

3399 xZenwl(endz,D):y2enl(endz,i)ibs(x2,y 
Z)sleer:DI:LOCATE x2,y2:PRINT CHRS(leer) 
J:EI 


LISTING 


3488 endz=eendz+l:IF endz)>190%@ THEN endz= 
N 

S3418 xZenl(endz,D):y2=wltENDz, 1): x3=ulie 
ndz+1,9):y3=wl(endz+ti,1): IF x3)x2 THEN s 
chwanzeschwlinks ELSE IF x3(x2 THEN schw 
anzeschwrechts ELSE IF y3)y2 THEN schwan 
z=schwoben ELSE schwanz=schwunten 

3428 bs(x2,y2)=schwanz:DI:LOCATE x2,y2:P 
RINT CHRS$(schwanz) EI 

3430 GOTO 3169 

3448 kopf=kopfi:RETURN 


3458 bonus=zbonus-I:IF bonus=® THEN q=REM 


AIN (2) 

3468 DI:LOCATE 3,25: PRINT "Bonus: "jbonu 
si :EI:RETURN 

3478 ENV 1,15,1,3,1,92,68,15,-1,3 

3488 ENT -1,5,1,1,18,-1,1,5,1,1 

3498 SOUND 1,399,159,9,1,1,0 

3509 leben=leben-I 

3518 GOSUB 381% 

3528 FOR k=1 TO S:FOR i=1 TO 27:FOR jet 
TO I@:NEXT js INK 3,1:NEXT i1,kK: INK 3,tint 
e3 

3538 bs(x,y)zleer:LOCATE x,y:PRINT CHRS( 
leer)):x=ex-dx:y=y-dy:GOSUB 3939: RETURN 
354% ENV 1,1,15,1,15,-1,8 

3559 ENT 1,200,2,1 

3568 SOUND 1,1,209,8,1,1,98 

3378 leben=leben-1 

3388 G0SUB 3819 

3398 FOR k=1 TO S:FOR i=l TO 27:FOR jel 
TO 19:NEXT j: INK 9,i:NEXT i1,k: INK 2,tint 
ed 

3608 xex-dx:ysy-dysbs(x,y)=leer:G0SUB 39 
39: RETURN 

3618 ENV 1,1,15,1,1,90,60,80,-1 
3628 ENT -1,5,1,1,18,-1,1,5,1, 
3638 SOUND 1,10088,139,0,1,1 
36948 leben=sleben-1 

3658 GOSUB 3810 

3668 FOR k=1 TO S:FOR i=1 TO 27:FOR jei 
TO I8:NEXT js INK 1,1:NEXT 1,k:INK L,tint 
ei 

3670 x=x-dxiysy-dyibsix,y)=leer:G0OSUB 39 
30: RETURN 

368% NEXT 1:IF ad THEN 3768 

3698 q=REMAIN (OD) :g=REMAIN (2) q=REMAIN 
(3):CLS:LOCATE 1,19: p=punkte:IF p(S9 THE 
N PRINT"Oooh, immerhin "p"Punkte":PRINT: 
PRINT"Wie waere es, wenn Sie noch"SPRINT 
‘PRINT"ein bisschen ueben ?" 

3788 IF p>4? AND p<(228 THEN PRINT’Naja, 
damit reissen Sie aber auch":PRINT:PRINT 
"niemand vom Kocker, ":PRINT:PRINT"mit Ih 
ren "p"Punkten, " 

3718 IF p>199 AND p<S88 THEN PRINT"Sie s 
ind durchaus auf dem":PRINT:PRINT"richti 
gen Weg. Mit":PRINT:PRINT"ein bisschen U 
ebung werden es":PRINT:PRINT"bald mehr w 
erden als"p"Punkte." 


-. 
m 
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3728 IF p)499 AND p<1008 THEN PRINT"Das 
ist in der Tat schon"’:PRINT:PRINT"eine b 

eachtliche Leistung. ":PRINT:PRINT p"Punk 

te koennen sich sehen lassen,” 

3738 IF p)999 THEN PRINT"Gratuliere, dam 
it sind Sie":PRINT:PRINT"ein HUGO der 1. 

Klasse. ":PRINT:PRINT"Ich wuenschte es 9a 

ebe mehr ":PRINT:PRINT"von Ihrer Sorte !! 
I"SPRINT:PRINT p"Punkte, dass macht ihne 

n so":PRINT:PRINT"schnell keiner nach." 

3748 IF p<bl(19) THEN GOTO 389% 

3758 LOCATE 1,24: INPUT"Ihr Name "jziz=LE 

FT$S(z,10):bl(1LNM)=piznt1Q)=z 

3768 a=d:FOR i=1 TO IB: IF blCi)>blli-L) 

THEN w=bl (d)sbl ti Iebl li -L)iblli-L)anizez 

n(i)iznli)ezn(i-L)sznti-I)eziasarl 

3778 NEXT i:IF a>@ THEN 3769 

3788 CLS:BORDER 3: INK 9,3: INK 1,2: PRINT” 
Die Liste der i9 Besten des Tages":PRIN 

T:PRINTSFOR i=8 TO 9:PRINT ‚blti)sjznti): 

PRINT:NEXT i:LOCATE 3,25; PRINT"Druecken 

Sie eine Taste "j 

3798 z=eINKEYS: IF z=""THEN 379% 

3889 GOTO 1698 

3818 DI:LOCATE 33,2S:IF leben<6s THEN FOR 
ilst TO leben:PRINT CHRS(kopf) I: NEXT il 
PRINT” "SEI ELSE PRINT * "4SLOCAT 

E 35,35: PRINT lebenjCHR# (kopf) 

3828 RETURN 

3839 oktave=RND#35-2:note=RNDKF+L 

3849 trequenz=440%412* (oktave+ (note-10) /i 


periode=ROUND (125998/frequenz) 

ENV 1,3,5,1,5,0,1,89,-1,7 

ENT -1,4,1,1,8,-1,1,4,1,1 . 

SOUND 129, periode,100,0,1,1,9 

3899 RETURN 

IF (sat1) AND 7)<1 THEN RETURN 
twetw+is IF tw)368 THEN twel 

IF ma(tw,8)<c477 THEN SOUND I,matltw, 
d),maltw,1),2,14:G0T0 3988 ELSE SOUND 1, 
maltw,@),maltw,1),9,135:G0T0 390% 

3739 EVERY 28,1 GOSUB 3989: RETURN 

3748 MODE I: PRINT" *%+* Tastaturbeleg 
ung X##":PRINT:PRINT:PRINT:PRINT"Welche 
Taste moschten Sie fuer: ":PRINT:PRINTIPR 
INT"OBEN | 

3959 z=INKEYS:IF zi>"" THEN 3959 

S3FEd z=INKEYS;IF z="" THEN 3969 ELSE tob 
ensASc (zZ): PRINT CHRS (toben) :PRINT:PRINT" 
UNTEN "I 

3778 z=INKEYS:IF z="" THEN 3979 ELSE tun 
ten=ASC(z):PRINT CHRS(tunten) :PRINT:PRIN 
T"LINKS "j 

3789 z=INKEYS:IF z=e"" THEN 3988 ELSE tli 
nkszeASC(z): PRINT CHRS(tLinks) :PRINT:PRIN 
T"RECHTS "5 

3998 z=INKEYS: IF z="" THEN 3998 ELSE tre 
chts=ASC(z): PRINT CHRS(trechts) 


4008 LOCATE 1,24:PRINT"Sind Sie zufriede 29 


LISTING 


n (j/n) 9 

4818 z=INKEYS:IF z="" THEN 4810 ELSE zei 
OWERS(z): IF z="n" THEN 3949 ELSE IF z<>" 
j" THEN 4818 

4829 RETURN 

4838 CLS:MODE 9: PRINT: PRINT: PRINT:PRINT: 
PRINT:PRINT:PRINT:PRINT"Es tut mir leid’ 
:PRINT:PRINT"aber ich kann":PRINT:PRINT" 
nicht weiter":PRINT:PRINT"machen !":PRIN 
T:PRINT:PRINT"-Sie sind zu gut-" 

4848 FOR i=i TO 3888: NEXT:MODE 1:60T0 36 
99 

4858 OPENIN"musik.$88":FOR i=1 TO 348;F0 
R j=d TO 1:INPUT #9,a:PRINT #8,a,,:NEXT 
j:PRINT #8:NEXT i 

4868 CLOSEIN 

4878 DATA 139,477,213,159,477, 213,159, 21 
3,139,127,106,477,119,477,142,119,3796 
40889 DATA 477,192,119,192,169,192,213,47 
7,139,477,139,127,192,159,139,169, 3432 
4898 DATA 169,142,119,169,142,159,159,12 
7,192,159,139,169,169,142, 119,169, 2414 
4128 DATA 159, 159,159,169,199,169, 159,15 
9,127,142,159,142,127,127,106,119,2372 
4118 DATA 127,119,106,477,213,190, 213,23 
9,239,239, 253, 233,253, 284, 284,319, 3888 
4128 DATA 338, 379,358,319,477,284,477, 25 
3,477,213,199,213,239,239, 239,239, 4954 
4130 DATA 233,253, 253,233, 284,284, 284,31 
9,338,379,338,319,319,319,358,319,4912 
4149 DATA 284,338, 233,253, 253, 284, 253, 23 
9,284,213,190,169,139,142,127,113, 3374 
4159 DATA 106,142,113,142,113,142,196, 14 
2,113,142,113,1492,196, 106, 106,106, 1948 
A169 DATA 196, 106,106, 106,106, 106,113, 14 
2,186,142,113,192,106, 142,119, 284, 2045 
4178 DATA 284, 284,284,477,1492,159,169, 19 
8,213,477,127,477,1359,477,190,477,4586 
4188 DATA 142,477,169,199, 213,226, 253,47 
7,159,477,169,190,477,477,142,142, 4389 
4198 DATA 142,142,142,142,142,142,142,14 
2,192,142,142,127,113,113,106,477,2498 
4208 DATA 127,127,142,477,239,213,477,14 
2,1806,113,127,142,127,142,477,142, 3320 
4218 DATA 142,142,142,142,127,1492,477,14 
2,106,113,127,142,127, 142,477, 1492, 2832 
4220 DATA 142,1492,142,142,127,142,477,12 
7,1942,159,169,159,477,142,159,169, 3017 
4230 DATA 190,169,477,127,113,186, 113,12 
7,127,142,169,142,142,139,169, 190, 2662 
4249 DATA 213,477,142,106,113,127,142,12 
7,192,477,192,1942,142,142,1492,127,2903 
4258 DATA 142,477,142,196,113,127,142,12 
7,192,477,142,142,142,142,142,127, 2832 
4269 DATA 142,477,127,192,159,169,159,47 
7,192,159,169,199,169,477,127,113,3398 
4278 DATA 186,113,127,127,192,169,142,14 
2,159,169,199, 213,284, 233, 226, 213, 2775 
4289 DATA 213,198,213,190,169, 226, 213,19 
2,169,169,159,169,159,142,142,134, 2847 
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4299 DATA 159,134, 127,477,253,1990,213, 22 
6, 253, 284, 213,477, 169,477, 213,477,4333 


4300 DATA 4,2,2,4,2,2,2,2,2,2,4,4,4,2,2, 
4,2,2,2,2,2,2,4,4,2,2,6,2,2,2,2,2,284 
4318 DATA 6,2,2,2,2,2,6,2,2,2,2,2,6,2,2, 
2,2,2,1,1,1,1,2,2,1,1,1,1,2,2,1, 1,066 
4320 DATA 1,1,4,4,8,8,1,3,4,1,3,4,1,3,4, 
2,2,2,2,3,1,3,1,3,5,8,8,2,2,2,2,2,109 
4330 DATA 2,2,2,2,2,2,2,2,2,2,2,8,2,1,9, 
9,2,2,8,2,1,9,9,2,2,8,4,4,4,4,4,4,120 
4348 DATA 6,2,3,1,3,1,6,2,3,1,3,1,2,9,9, 
4,2,2,4,4,4,2,2,2,2,2,2,2,2,2,2,2,084 
4358 DATA 2,2,4,4,6,1,1,1,2,153, 1,3, 1,3, 
1,3,5,6,1,1,1,2,1,3,1,8,4,4,2,2,2,282 
4369 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 
2,2,2,2,2,2,4,2,2,2,2,2,2,2,2, 2, 2,066 
4378 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 
2,2,2,2,2,2,2,4,5,1,1,1,4,4,5,1,1,871 
4388 DATA 1,6,2,2,1,1,2,2,2,2,2,2,2,2,2; 
2,4,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 2,067 
4398 DATA 2,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 
2,2,4,5,1,1,1,4,4,5,1,1,1,4,4,2,1,073 
4498 DATA 1,2,2,2,2,2,2,2,2,2,2,2,2,2,2, 
2,2,2,1,1,2,2,2,2,2,2,2,1,1,2,2,2,059 
4419 DATA 1,1,4,4,6,2,2,2,2,2,2,2,2,2,2, 
6 


4420 DATA 0,30,10,49,13,38,17,38,20,48,2 
0,5,19,3,18,1,17,9,13,9,342 

4438 DATA 12,1,11,3,10,5,30,35,29, 37,28, 
39,27,40,24,40,24,39,23,37,494 

4448 DATA 22,35,22,5,23,3,24,1,25,9, 31,9 
‚32,1,33,3,34,5,37,15,351 

4459 DATA 38,5,39,3,40,1,41,9,46,8,47,1, 
48,3,49,5,59,15,53,53,489 

4469 DATA 54,3,55,1,56,0,62,8,63,1,64,3, 
65,5,79,10,71,11,73, 14,681 

4478 DATA 74,15,89,15,81,14,82,11,83,9,8 
3,5,82,3,81,1,80,0,75,8,874 

4488 DATA 74,1,73,3,72,5,72,9,73,11,74,1 
3,75,15,83,9,83,-19,82,-12,895 

4498 DATA 81,-14,80,-15,77,-15,76,-14, 75 
‚-12,74,-190,95,19,96,11,97,13,98, 15,818 

4500 DATA 105,15, 199,15,99,13,98,13,97,1 
1,96, 10,96,5,97,3,98,1,99,0, 1971 

4519 DATA 104,0,195,1,1906,3,197, 5,107, 18 
‚196,11,105,13,104,15,193,16,103,13,1137 
4520 DATA 195,13, 112,18 

4538 DATA 1,45,35,1,2,47,33,1,3,48,32,1, 
4,49,44,1,4,36,31,1,419 

4549 DATA 5,49,44,1,5,36,31,1,6,50,45,1, 
6,35,390,1,7,50,45,1,449 

4559 DATA 7,35,39,1,8,59,45,1,8,35,3@,1, 


9,59,45,1,9,35,30,1,431 

4568 DATA 10,59,45,1,10,35,38,1,11,59,45 

‚1,11,35,30,1,12,50,45, 1,474 

4578 DATA 12,35,39,1,13,58,45,1,13,35, 38 
} 


‚1,14,59,45,1,14,35,24,1,458 

4589 DATA 13,23,27,1,12,22,26,1,11, 20,24 
‚1,10,19,23,1,9,18,22,1,284 

4599 DATA 8,17,21,1,7,15,19,1,6,14, 18,1, 


LISTING 


5,13,17,1,4,12,16,1,197 

4609 DATA 3,19,14,1,2,12,12,1,1,10, 11,1, 
19,59,7,2,18,59,4,2,228 

461@ DATA 17,50,2,2,16,59,2,2,15,5,1,2,1 
4,4,0,2,13,4,8, 2,283 

4628 DATA 12,4,2,2,11,4,0,2,10,4,0,2,9,4 
‚2,2,8,4,0, 2,68 

4638 DATA 7,4,0,2,6,4,0,2,5,4,8,2,4,5,1, 
2,3,6,2,2,61 

4648 DATA 2,6,2,2,1,6,2,2,21,36,24,3,22, 
37,33,3,22,27, 23,3, 277 


4650 DATA 23,38, 
‚3,24,25,21,3,25, 
4668 DATA 253,24,2 
‚3,27,42,38,3,27, 
4678 DATA 28,43,3 
‚3,29,29,16,3,38 


’ 
4689 DATA 30,19,1 


4 
9, 
22 
9 
45, 
be) 


’ 
3 


’ 
3 


34,3,23,26,22,3,24,39, 35 
0,36,3, 450 
26,41,37,3,26,23, 19 
8,3, 430 
28,21,17,3,29,44,48 
1,3,485 
‚3,31,46,42,3,31,18,14 


‚3,32,47,43,3,32,17,13,3,445 
4699 DATA 33,16,12,3,33,48,44,3 


Er Tausche ker 
CPC 464-Spiele aller Art. 
Habe auch einiges zu bieten 
(z.B. Spitfire 40, Harrier 
Attack, Ping Pong, Winter 
Games). T. 07952/6353 
Suche DDI 1, zahle 200, ,—. 
Tausche Software f. CPC 464 
auf Tape. Suche Information 
über Nebenerwerb mit dem 
Mikro. Peter Rögner, An der 
Lasche 2, 8601 Seßlach 2. 
Tel. 09567/1069 ab 16 Uhr 
Erstelle Sicherheitskopien für 
alle CPC’s von Disk. zu Disk. 
Einfach beide Disk. u. 10- 
DM-Schein an: T. Hermann, 
Koppenwaldstr. 5, 7614 
Gengenbach 

Suche für 464: Zweitlauf- 
werk FD-2, Maxam Ass. Tel. 
0561/8016274, abends 
05601-1522 

Orig.-Software auf Disk. u. 
Kass. ab 5 DM, z.B. Guzazler, 
Ninja Master usw. Disk ab 15 
DM, z.B. Lords of Middle 
Ages, Tempest,Dragons, 

Lair je 24 DM usw. 06638/ 
1503 

Top: Schickt Disk. 3 Zoll. 
Top: Und pro Disk 10 DM. 
Dafür erhaltet Ihr die Disk. 
voll zurück (keine Raubko- 
pien). Verk. Orig.-Tapes je 
25 DM: Zoids, Wintersport, 
Soccer 86, A. Jack, M. Bum- 
per, Hypersport, S. Fox. 
Michael Schlitt, Fasanenweg 
1,4459 Uelsen 


Drucker Brother M-/009-9x9 
Matrix Epson kompl. m. Ka- 
bel, Papier, Farbbändern f. 
CPC 464/664 nur 350 DM. 
Kaum gebraucht! Tel. 0211/ 
3112341 od. 0211/780839 
(Lütz) 

Software gesucht für Schnei- 
der CPC 664. Liste an Axel 
Kopp, Bebelstr. 87, 7000 
Stuttgart 1 

Tausche CPC-Software! Mel- 
den bei Dennis Türker, Allen- 
steinerstr. 21, 75 Karlsruhe 
1, Tel. 0721/682271 


Compiler für CPC od. Joyce 
zu verkaufen. Franz Czopik, 
Ilmweg 8, 33 Braunschweig, 
Tel. 0531/860774 

Schreibe Programme 464/ 
664 nach Ihren Angaben: 
Basic, Assembler (nur 280), 
Comal 80, Turbo-Pascal, Mo- 
Sa ab 18 Uhr, Tel. 06121/ 
464838 

*** Schneider CPC 464 

*** Suche Software auf Tape 
(Spiele, Anwenderprogram- 
me). Angebote an: Thomas 
Knapek jun., Eichenweg 21, 
8312 Dingolfing 

Suche Software für CPC 
6128, professionelle Anwen- 
derprog.: Wordstar 3.0, Er- 
stellung von Serienbriefen, 
Grafikprog. usw. m. dt. Lit. 
Jürgen Schmiedel, Ostland- 
str. 16, 2179 Neuhaus-Oste 


!!! CPC 6128 !!! 
Suche Software für CPC 
6128. Ich bin besonders an 
einem Softwretausch interes- 
siert. Um die 100 Programme 
Oliver Jungnitsch, Waterberg- 
str. 22a, 4650 Gelsenkirchen 
Der CPC-User-Club Wuppertal 
sucht noch Mitglieder aus 
Wuppertal u. Umgebung. 
Bitte meldet Euch bei: Axel 
Stuhlreiter, im Saalscheid 6, 
56 Wuppertal 21, 0202/ 
4697352 
Gratis-Softwareliste für CPC- 
Besitzer anfordern bei Fried- 
rich Neuper, Postfach 72, 
8473 Pfreimd 
Verkaufe CPC 464 (Farbe) 
mit 3“-Floppy, Joystick, 
Mouse, über 40 Fachzeit- 
schr., Disk. u. Kass. u. über 
30 Originale im Raum Ost- 
westfalen-Lippe zu einem 
Preis von insgesamt 1.500,— 
DM. T. 05221/65341 
Schneider CPC 464: Tau- 
sche und verk. Software, be- 
sonders Anwenderprog. auf 
Kass. od. Floppy 5.25‘°/3“. 
Erwin Ryka, Breubergstr. 
33,6 Frankfurt 71, Tel. 
069/6702233 
RAM-Disk, 256KB f. CPC 
464 zu verkaufen, 150 DM. 
Epson-Modem u. Orig.-Pro- - 
gramme zum halben Preis. 
Kontakt: H.A. Kretzschmar, 
Postf. 210405, 41 Duisburg 
1,T. 0203/3373832 nach 17h 
Verkaufe Textverarb.-Prog. 
orig. „‚Star-Writer‘ mit Si- 
cherheits-Copy, NP 198,— 
u. 20,—, halbes Jahr alt, gg. 
Höchstgebot an: Uwe G. 
Oberbäumer, Postfach 843, 
4620 Castrop-Rauxel 
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Verkaufe alle Schneider Aktiv 
Hefte von 1986 (13 St.) u. 
Sonderheft 1/87 f.42 DM. 
Alle Hefte sind vollkommen 
neuwertig und unbeschädigt. 
VB. Tel. 06152/4871 

Orig. Schneider Software, 
Kass. für nur 10 DM u. Disk. 
für nur 20 DM abzugeben. 
Liste anfordern: Horst Stitz, 
Jakob-Kaiser-Str. 10B, 2850 
Bremerhaven, T. 0471/66186 
* Achtung! Verkaufe! * 

CPC 464, 12 Monate, GT 64 
Green Monitor, Lindy Light- 
pen inkl. Software u. Lit. 
wegen Systemänderung für 
nur 500,—. Tel. 06383/5269 


Verkaufe fast neuen CPC 
6128 u. 6 orig. Schneider- 
Disk., Handbuch, 2 orig. Joy- 
sticks, 3 Computerhefte m. 
über 40 Prog. (300 Seiten 
stark). VB 1.100 DM. Meldet 
Euch bei Udo Jetschmanegg, 
Hadumothstr. 9, 77 Singen, 
T. 07731/63999 

Software für Schneider CPC 
464! maximale Software 
zum minimalen Preis. Liste 
für 1 DM bei Thomas Knapek 
jun., Eichenweg 21, 8312 
Dingolfing 

Verkaufe alle Schneider Inter- 
national Hefte (21 St.) von 
1985—1986 m. Sonderheft 
1/87 £. 60 DM, VB. Tel. 
06152/4871 

Suche f. CPC: Trivia, Edos, 
Trivial Pursuit, Mathemat u. 
Headline 464 auf Disk. 
Außerdem Handbuch zu Pro- 
fi Painter u. Defpack. Tau- 
sche auch Software (200 
Prog.). Angebote: Thomas 
Briegel, Piechlerstr. 4, 8942 
Ottobeuren 

Suche Bau-Software, Statik, 
Massenberechnungen Tief- 
bau, Ausschreibungen etc. f. 
CPC 6128. Franz Küpper, 
Lupinenstr. 25, 5216 Nieder- 
kassel 

Akustikkoppler AK300, 

CPC Term, Kabel für CPC 
464: 295 DM. Verk. auch 
Software auf Kass. Detlef 
Kramer, Eichenstr. 17, 3549 
Volkmarsen 
Kunststoff-Leerschacthteln v. 
$*-Disk. (kleine Menge) v. 
Kunststoff-Leerschachteln v. 
3“-Disk. (kleine Menge) v. 
privat zu kaufen gesucht. 
Nur schriftl. Angebote an 
Gerhard Riedel, Schwibbo- 
gensplatz 2b, 8900 Augsburg 
Verkaufe Gate Array (IC 
116) zum Preis von 65 DM, 
neu kostet er ca. 80 DM! 
Kühlblechversion — ohne 
Kühlbl. Carsten Kissel, Bahn- 
str. 9, 6636 Überherrn 1, 
06836/1573 ab 18 Uhr, 
außer Sa. u. So.! 
Top-Software zu Niedrigst- 
preisen: Crime Tim e: Detek- 
tivspiel 1. Super Quiz: Neues 
(!) Quiz. Murder!: Detektiv- 
spiel 2. IQ: für Inelligente. 
Psycho: Psychologieprog. 
u.v.a. 1. Prog. 10,—, jedes 
weitere 5,—!!! AUOE-Club, 
Heckenrosenstr. 12, 8000 
München 70,T.089/7143378 
(S. Anroldi). Scheck, Bargeld, 
Rechnung! 


dBASE: 


Fortsetzung von Seite 7 


möglichkeiten ist m (linker Rand 
bis zur ersten Druckposition) 
=8 Zeichen, 1 (nutzbare Zeilen / 
Seite) = 57 Zeilen, w (Formular- 
breite) = 80 Zeichen n wird ein 
alternatives Druckformat ge- 
wünscht, so können an dieser Stelle 
andere Werte eingegeben werden, z.B. 
m=3,1=60,w=123 
Seitenüberschrift ? (J/N)J 
Bitte Seitenüberschrift eingeben: 
Adressliste 
Leerzeile zwischen Sätzen ? 
(J/N)N 
Gesamtsummen erforderlich ? 
(J/N)N 
(Da in der Beispielsdatei “ADRESS““ 
kein numerisches Feld vorhanden 
ist, erübrigt sich eigentlich die Frage 
nach Gesamtsummen. ) 


Ser Breite Inhalt 
O,vorname 

bitte eat eingeben 
>\Vorname 
002  20,name 
bitte Überschrift eingeben 
>Familienname 
003 _ 24,strasse 
bitte Überschrift eingeben 
>Straße,Hsnr. 
004 21 ‚plz:ort 
bitte Überschrift eingeben 
>PLZ/Ort 
005 <ENTER> 
Es erfolgt der Listenausdruck der 
Datei mit den übergebenen Listen- 
parametern auf dem Monitor. Sollte 
etwa zu einem späteren Zeitpunkt 
die “Formatdatei‘‘ TEST wieder auf- 
gerufen werden, so werden die be- 
reits erstellten Parameter von der 
Datei TEST.FRM eingelesen. Der- 
artige Listen können durch den Zu- 
satz “TO PRINT“ auf den Drucker 
geschickt werden: 

.FORMAT FORM TEST TO 

PRINT 
nn aueh selektiv nach Suchkri- 


teri 
"FORMAT FORM TEST FOR 
plz:ort="*3“ 


yoduech alle Adressen mit einer Post- 


leitzahl beginnend mit 3 aufgelistet 
werden. 

Der Befehlsvorrat ist so komplex, 
daß es in dieser Abhandlung nicht 
einmal möglich ist, alle Schlüssel- 
wörter zu erwähnen. Schon um per 
Suchbegriff auf Daten zurückzugrei- 
fen, gibt es unzählige Möglichkei- 
ten, zum Beispiel: 

LIST FOR INAME=“Meier“ 
Listet alle Datensätze, bei denen 
das Feld NAME‘ mit “Meier“ 
beginnt. 
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LIST FOR “EIER“$(!(NAME)) 
listet alle Datensätze, bei denen 
die Zeichenfolge “EIER“ i in dem 
Feld NAME‘ vorkommt, unabhän- 
gig von Groß- und Kleinschreibung. 
LIST FOR !(NAME)>“C“. AND. 
PLZ:ORT<“5“ 
listet alle Datensätze, in denen das 
Feld ‘NAME‘ mit einem Zeichen 
größer als ‘C‘ und das Feld ‘PLZ: 
ORT‘ mit einem kleineren Ascii- 
Wert als ‘5° beginnt. 
Unterschiede in Groß- und Klein- 
schreibung werden durch Verwen- 
dung der ““!“-Funktion nivelliert: 


TIPS 
& 


ruft man fertige Rou- 
tinen des Betriebssy- 
stemes im ROM auf. 
Diese Einsprünge sind 
hexadezimal nume- 
riert und in der 
kompletten Aufzäh- 
R RICKS lung dem Firmware 
Handbuch zu entneh- 
men. Ein Namenskür- 
zel verrät zum anderen 


Will man keine Auflistung, so ste- 
hen noch andere Befehle zur Ver- 
fügung, wie LOCATE FOR... oder 
FIND <WERT>, um z.B. danach 
durch “EDIT #“ oder “DISPLAY“ 
weiterzuarbeiten. “FIND“ ist aller- 
dings nur bei indizierten Datenbän- 
ken möglich. Wie schon aus obi- 
gen Beispielen ersichtlich ist, han- 
delt es sich bei dBASE um ein dia- 
gonalbezogenes System. Die Schlüs- 
selwörter oder Befehle sind zumin- 
dest mit geringen Englischkennt- 
nissen sehr gut nachvollziehbar, so 
daß man schnell den Dialog be- 


wartet so lange, bis 
ein Zeichen eingege-. 
ben wird und wirkt so 
als Pausenfunktion. 
Welches Zeichen, 
spielt dabei keine Rolle. 
Diese Programmunter- 
brechung ist ungefähr- 
lich, erst recht, wenn 
man sie aus BASIC 
heraus benutzt. 


auch näheres über die 
Routine. CALL 
&BB06 trägt das Kür- 
zelKM WAIT CHAR. 
Dabei steht KM für 
Keyboard Manager 
(Tastatur Verwaltung) 
und WAIT CHAR für 
Wait Charakter (Warte 


EINFACHE 
PAUSENFUNKTION 


Assemblerprogrammie- 
rer können bei ande- 
ren Firmwareroutinen 
unter Umständen auf 
die Nase fallen. Wir 
werden noch auf den 
MC-Seiten darauf ein- 
gehen, der Grund sei 
jedoch schon verraten. 


Im Beispiel der Spei- 
cherroutine taucht der 
Befehl CALL &BB06 °’ 
auf. Mit einem “ Call“ 


Setzt man vor einen eingeklammer- 
ten Ausdruck ein Ausrufezeichen, 
so werden die Zeichen des Aus- 
drucks in Großbuchstaben umge- 
wandelt. 
Der Begriff <AUSDRUCK1>$ 
<AUSDRUCK2> gibt den Wert 
“TRUE“ zurück, wenn 
AUSDRUCK]I eine Teilkette von 
AUSDRUCK? darstellt. 
Um dies zu testen, lassen sich auch 
durch Dialog mit dem System einige 
Ausdrücke auswerten: 

.? “EIER“$(!C“meier“)) 

Th ; True (Wahr) 

Bei “EIER“$“ meier“ 

.F. ‚ False (Falsch) 


Bei einer Aussageverknüpfung 
können die Funktionen .AND. 
(Und), .OR. (Oder) und .NOT. 
(Negation) verwendet werden. Ver- 
gleichsoperanden “=““ (gleich), 
“<>“ (ungleich), “<‘“ (kleiner oder 
gleich) und “>=“ (größer oder 
gleich) ermöglichen dem Benutzer 
eine genaue Definition der Such- 
kriterien. 
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auf Zeichen). Damit ist 
die Aufgabe von 
&BBO6 auch schon er- 
klärt. Diese Routine 


Ein Aufruf (bzw. die 
Abarbeitung) im ROM 
verändert meist die ge- 
rade eingestellten Re- 


herrscht und auch bald eigene Pro- 
gramme entwerfen kann. Grund- 
sätzlich gelten für Programme 
(Kommandodateien) die gleichen 
Schlüsselwörter wie für den Dia- 
log. Die Sprache zu erlernen ist 
daher denkbar einfach, der Unter- 
schied zum “normalen‘“ Dialog 
besteht eigentlich nur im Algo- 
rithmus, wenn Programmschleifen 
zu programmieren sind. 

dBASE ist allerdings nicht als Pro- 
grammiersprache per se zu verste- 
hen: Hier fehlt es an vielen Stellen 
am nötigen Komfort. Als mathe- 
matische Funktionen steht nur 
Strich- und Punktrechnung zur Ver- 
fügung, so daß es schon nicht mehr 
möglich ist, etwas aufwendigere 
Kalkulationen wie statische Be- 
rechnungen durchzuführen. Da kei- 
ne Variablenarrays definierbar sind, 
muß jeder Wert einer separaten 
Variablen übergeben werden. 
Einige Beispiele: 


STORE 1 TO ZAHLI 


“ZAHL1” ist fortan eine nume- 
rische Variable momentaner 
Wert = 1 
STORE "*“ TOSTR 
“STR” wird als Stringvariable 
mit dem Inhalt ’*’ definiert 
STORE F TO OK 
„OK“ erhält den logischen Wert 
STORE ! (NAME)> ”"K“ TO OK 
“OK erhält den Wert "FALSE" 
oder "TRUE‘’, je nach Inhalt 
des momentan bearbeiteten 
Satzes. 


Zum Abarbeiten von Programmier- 


SERVICE 


dateien sind normale Textdateien, 
die z.B. auch mit WordStar erstellt 
werden können. Es ist möglich, von 
einem Hauptprogramm (Menü) aus 
andere als Unterprogramme aufzuru- 
fen. Dadurch können kleinere Pro- 
gramm-Module zentral angesteuert 
werden. 


Außerdem kann eine Kommando- 
datei klein und übersichtlich gehal- 
ten werden. Bei Erstellung von Pro- 
grammdateien ist es nützlich, daß 
man mit dBASE gleichzeitig einen 
integrierten Texteditor zur Hand 
hat, der mit der Befehlsfolge 


gisterwerte. Experi- 10,10 ger Folie gedruckt wer- 
mentieren Sie also _ 60PRINT CHR$(129) den. Wechselt man zwi- 
nicht ohne das nötige nn CHR$(22); schen den einzelnen 
Wissen im Hinterkopf. HR$(0) PRINT-Befehlen auch 


EIN MEINUERHEIGES 


ZEICHE 


Mit einem einfachen 
Trick können Sie unter 
Basic mehrfarbige Zei- 
chen darstellen. Pro- 
bieren Sie einmal im 
Modus O folgende 
Beispielroutine: 
10OMODE 1:PEN | 
20LOCATE 10,10. 
PRINT CHR$(130) 
30PEN 3: LOCATE 


10,10 
40PRINT CHR$(22) 
ISCH CHR$ 


(132) 
SOPEN 2: LOCATE 


Nach RUN sehen Sie 
auf dem Bildschirm ein 
dreifarbiges Symbol. 
Was ist geschehen? 
Normalerweise wird 
ein Zeichen dann ge- 
löscht, wenn ein ande- 
res darüber gelegt 

wird. Durch den Steu- 
ercode CHR$(22); 
CHR$(1) werden je- 
doch nur die darunter- 
liegenden Rasterpunk- 
te (8 mal 8) verdeckt, 
die von dem nachträg- 
lich benutzten Symbol 
benötigt werden. Stel- 
len Sie sich ganz ein- 
fach vor, Ihre Zeitung 
würde auf durchsichti- 


noch die Farbe, dann 
entsteht ein mehrfar- 
biges Zeichen. Beson- 
ders interessant wird 
es, wenn man seine ei- 
genen Zeichen (mit 
Symbol After) defi- 
niert. Mit ein bißchen 
Phantasie lassen sich 
zukünftige Futtersym- 
bole eines Spieles, z.B. 
als Hamburger, dar- 
stellen. Versuchen Sie 
es mal, vergessen Sie 
aber nicht, diesen 
„durchsichtigen“ 

Trick mit CHR$(22); 


CHR$(0) wieder auszu- 
schalten. 


schleifen stehen unter dBASE lei- 
der keine FOR/NEXT-Schleifen 
zur Verfügung. Stämtliche Para- 
meterübergaben müssen leider rela- 
tiv umständlich programmiert wer- 
den (Beispiel: 


STORE WERT TO VARIABLE). 


Das Schlüsselwort “SKIP <Wert>“ 
veranlaßt dBASE, den Satzzeiger 
um einen gewählten positiven oder 
negativen Wert zu verändern. Eine 
damit typische Schleife innerhalb 
einer Programmdatei könnte so 


aussehen: 
GO TOP ; Satzzeiger 
‚auf Dateianfang 
DO WHILE .NOT. EOF 
; DO-Schleife wird so 
; lange durchlaufen, 
; bis Dateiende er- 


; reicht ist 
<Anweisungen> 
SKIP +1 ‚erhöhe Satzzeiger 
‚um 
ENDDO ; Ende der Schleife 


Diese Command- oder Programm- 


“MODIFY COMMAND 
<DATEINAME>“ 
aufgerufen wird: Ein separater Text- 
editor ist also nicht erforderlich. 


BJLDSCHIRMORIENTIERTE 
DATEIMASKE UND EINFACHE 
DRUCKEROPTIONEN 


Durch die EDIT-Funktion läßt sich 


so bereits einfach und fast optimal 
mit dBASE arbeiten. Durch Kom- 
mandodateien ist es jedoch noch 
möglich, eine Bildschirmmaske ° 
nach eigenem Geschmack zu er- 
stellen und den vollen Bildschirm 
zur Ein- und Ausgabe von Daten 
zu nutzen. Das mitgelieferte Pro- 
gramm ZIP.COM vereinfacht die 
Maskenerstellung erheblich, wenn- 
gleich auch ohne dieses Hilfspro- 
gramm durch eigenständige Pro- 
grammierung dasselbe erzielt 
werden kann. 

Druckerausgaben können durch 
einfache Befehlsfolgen ein- und aus- 
geschaltet werden: 
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SET PRINT ON 

Schaltet Drucker ein 

SET PRINT OFF 

Schaltet Drucker aus 

SET FORMAT TO PRINT 

Leitet eine evtl. Bildschirmmaske 
auf den Drucker um 

SET FORMAT TO CONSOLE 
Schaltet die Formatausgabe für 
den Drucker aus 

SET CONSOLE OFF 

Schaltet die Bildschirmausgabe aus, 
um beispielsweise Steuerzeichen 
zu übergeben 

SET CONSOLE ON 

Schaltet die Bildschirmausgabe 
wieder ein. 


Neben diesen ‘Switches‘ gibt es 
noch eine Vielzahl weiterer Schal- 
ter<SET... ON/OFF>, die das 
Arbeiten mit dBASE komfortabel 
gestalten. 


WELCHE HARDWARE- 
KONFIGURATION? 


Um einmal vor Augen zu führen, wie- 
viele Datensätze auf einer Diskette 
Platz finden, stelle man folgende 
Rechnung an: Addiert man die Feld- 
längen (incl. 1 Byte = Löschmar- 
kerungsplatzhalter), so erhält man 
im Beispiel ‘ADRESS‘ (s.o.) eine 
Satzlänge von 88 Zeichen. Die Da- 
teien DBASE.COM und DBASE 
OVR.COM sind als Minimum erfor- 
derlich mit insgesamt 64 K. 

Somit wären bei einem 3° Einzel- 
laufwerk noch 169 — 64 = 105 K 
für ca.1190 Datensätze zur Ver- 
fügung. 

Um dBASE jedoch optimal zu nut- 
zen, benötigt man noch Indexda- 
teien, Kommandodateien und ggf. 
auch Reportdateien, wodurch der 
auf einer Einzelfloppy noch zur 
Verfügung stehende Speicherplatz 
erheblich abnimmt. Sinnvoll ist 
hier entweder der Einsatz einer 
Diskettenstation mit höherer Spei- 
cherkapazität und/oder die Ver- 
wendung eines Zweitlaufwerks, um 
darauf separat zur Datenbankfiles 
und Indexdateien zu verwalten. 


FAZIT 


Die Mindestanforderung ‘Einzellauf- 
werk mit 62 K — CP/M-Version‘ 
sollte noch mit dem Zusatz versehen 
werden: “eine Doppelstation macht 
sich bezahlt!‘. Wer sich die Mühe 
der Einarbeitung machen will (oder 
muß), findet für den CPC kein 
flexibleres, universelleres und lei- 
stungsfähigeres Datenbanksystem. 
Für den gerechtfertigten Preis von 
DM 199,— dürften damit alle Datei- 
probleme beseitigt sein. (Thomas Scheer) 


BÖRSE 


Suche günstige Speechsynth. 
Wer besitzt einen Digitizer? 
Für 6128. Probst, Lärchen- 
weg 34b, 8373 Bodenmais 
Suche DDI-1 für CPC 464. 
Angebote an Manfred Lerchl, 
Ruhbeetstr. 3, 8061 Arn- 
bach, Tel. 08136/5125 
Verkaufe Vortex-Para sowie 
einige Basic-Programme 
(Hardcopy, Adreßverwal- 
tung u.a.) Tel. 05532/5430 

* Public Domain * 
Jetzt 250 Freiprogramme für 
alle CPC-CP/M-Rechner auf 
3“ Disk. erhältlich! Compiler 
u. Interpreter zu ADA,C, 
COBOL, FORTH, LISP, 
PASCAL, PROLOG, UNIX. 
Außerdem Spiele, Adv., Pro- 
gramme zu dBase u. Pascal, 
je Disk. nur 15 DM, Info 1,20 
DM. PDS, C. Arnim, P.O. Box 
1118, 6464 Linsengericht- 
Alten 


LICHTGRIFFEL 


mit Programm für CPC 
464 oder CPC 664 + CPC 
6128 nur 49,— DM. Ver- 
sand gegen Scheck/Nach- 
nahme. Info gratis! 

Fa. Schißlbauer, Postfach 
11715, 8458 Sulzbach, 
Tel. 09661/6592 bis 21h 


Suche SW Tasuchpartner u. 
5 1/4“-Laufwerk F. CPC 
664. Lothar Bruns, Burgstr. 
30, 5102 Würselen, 02405/ 
5735 


Tausche Software auf Tape. 
Ich habe z.B. F.B. Boxing, 
Hexenküche 1 u. 2, Aliens, 
Spindizzy u.a. Ich suche be- 
sonders den Graphik Adven- 
ture Creator. Schickt Eure 
Liste an: Hans Gerfried, Nak- 
kenbergstr. 36, 4459 Uelsen 
CPC 664 m. Farbmonitor, 
Software (Text, Stockmaster, 
Dat. B. usw.) Lit., 50 Hefte, 
Disketten, VB 1.100,—. Tel. 
089/906166, abends 983345 
Verk. elektron. Schreibma- 
schine Brother EP22 mit 
Computeranschluß 250 DM. 
Stefan Mühlbaur, Mercystr. 
12, 8070 Ingolstadt, T. 0841/ 
77057 


**** LOHN- UND EINKOMMENSTEUER *** 
Super Jahresausgleich + Steuerkl.-wahl + Rentenertrag + 
Analyse! Für * CPC’s + IBM * Cass. 60,—, Disc. 70,— DM 
Info gg RP Jährl. Aktu. 10,— DM! Horst lichen Niederfeld- 
str. 44, 8072 Manching, Tel. 08459-1669 


Suche zum PC 1512 Text- 
vearbeitung (z.B. Starwriter 
PC) sowei sonstige Prog. od. 
Spiele. Angebote an: G. 
Strauß, postlagernd, 8868 
Möttingen 

** TIEFSTPREISE ** 
10 MAXELL 3°DISKETTEN 
DM 69,90, 10 No Name 3,5“ 
Disk. DM 29,90, 10 No Name 
525° Disk. DM 6,90 
Info von Computer-Versand- 
Trier, 55 Trier, Pf. 2106, 
Tel. 0651-16366 


Für Joyce-Besitzer: Mathe- 
Prog.: Volumenberechnung, 
Flächenberechnung, Zins- 
rechnung, Grundrechenar- 
ten u.a. 10,— (o. Disk.), 
25,— (mit Dis.). Sven Hil- 
debrandt, Katuenstein 33, 
3420 Herzerg/Harz, T.05521/ 
2945 
Tausche Software! Nur Disk. 
f. CPC 464/664/128. Andreas 
Ludwig, Wilhelmstr. 19, 6501 
Budenheim, Tel. 06139/6656 
ab 19 Uhr außer Sa., So.u. 
Do. 

!! Super GAmes !! 
Für CPC 664 u. 6128. Fünf 
Spiele auf einer Disk. (Raff- 
les, Speedy-Frogs, Tennis 
etc.) zum Wahnsinnspreis von 
18 DM! Info: Tel. 05741/ 
1686 
Suche: Software — Public 
Domain — Selfwrite Prog. 
Zahle bis zu 20 DM für die 
Prog. einer Disk. f. Schnei- 
der Joyce/CPC/PC. Listen an: 
S. Hildebrandt, Zum Katzen- 
stein 33, 3420 Herzberg/Harz 
od.nach 17 Uhr T. 05521/ 
2945 
Verkaufe folgende Spiele auf 
Kass.: Atom Smasher 8,—; 
Harrier Attack, House of 
Usher je 20,—; Hyper Sports 
25,—; Sorcery (Disk.) 30,—. 
Michael Hildebrandt, Garten- 
str. 5, 4905 Spenge 1 
Drucker DMP 2000, Kabel f. 
CPC 6128, 8 Mon. alt, Soft- 
ware (Elite, Locksmith, 
DMON, Colossus, Chess 4) 
auf Dis., 2 Data Becker Bü- 
cher (Masch.-Sprache-Buch, 
Tips u. Tricks 2) auch einzeln 
zu verkaufen. Preis VB, Tel. 
0731/719377 


Suche Hard; und Software für 
Amateurfunk zu 6128; suche 
464/6128 ohne Monitor, evtl. 
defekt; CP/M unterst. RS232C 
für 6128 m. Treiberprogramm 
Felix Kimmig, Lauenbach 
107, 7593 Ottenhöfen, 
07842/3248 

Tausche Fibustar-Plus, Fibu- 
star u. Privat 86 (Lohnsteu- 
er), alles neu, gg. gute Ge- 
schäftssoftware. Alles auf 3“ 
Disk. od. gg. zweites Laufw. 

5 1/4“. Angebote an Ahmed 
Khairy, Offermannstr. 24, 
5106 Roetgen 

Suche für Schneider CPC 
6128 Spiele auf Disk. Martin 
Stoßberg, Alexanderstr. 47, 
5630 Remscheid 1, Tel. 
02191/73603 


*Q-DIR Diskettenverwaltung* 
Für alle CPC Mod. + Joyce. 
Verwaltet bis 2200 Files, ist 
superschnell, läuft unter CPM, 
so haben Sie immer Ordnung! 
Info gegen Freiumschlag. 
H.W. Körber, Dornhaus, 
CH-8777 Diesbach (Schweiz) 


CPC 6128 grün 700 DM u. 
CPC 6128 Color 1100 DM 
von privat zu verkaufen. T. 
02181/49764, R. Hambü- 
chen, Boricher Kaul 35, 
4053 Jüchen 7 
Orig. Programme f. CPC 
464: Taifun Basic-Compiler 
80 DM, Textomat 60 DM 
u.a. Tel. 0681/871276 

**%* Star-Writer *** 
Orig.-Programme m. Hand- 
buch. Neueste Programmver- 
sion 3.0 günstig zu verk. Uli 
Haug, Richenbachstr. 41, 
7340 Geislingen, Tel. 
07331/68268 


Aktien u. Depotverw. für den 
neuen Schneider IBM-Komp. 
Preis: 70 DM, Info gg. 1,10 
DM: Dostal, Banaterweg 13, 
4800 Bielefeld 

Top Spiele für CPC 664 u. 
CPC 6128. Drei Speile auf 
einer Disk. zum Wahnsinns- 
preis von 15 DM. Informatio- 
nen gibt: Kay Schwettmann, 
Steubenstr. 6,4990 Lübecke 1 


* PICO — FORM 

* Textverarbeitung 
* Textarithmetik 

* Karteiverwaltung 
* 3 PROGRAMME IN 
* EINEM! 

* Für CPC 464, 664, 6128 * 
* Kass., Disc 3-5 1/4* * 
* EINFÜHRUNGSPREIS * 
* DM 59,— » 
* Gratisinfo — Lieferung * 
* Dipl.-Ing. Firnhaber * 
* Rehmkamp 8, 23 Kiel 17 * 
Vortex SP 70,-; Erw. 50 f. 
80,—; Data Becker B. versch. 
je 10,—; Quill, Music System 
30,—; 3 Adventures (Gr.) 
40,— kompl.; Schneider CPC 
Int. kompl. 90,—. Alles origi- 
nal, Topzustand! S. Arnoldi, 
Heckenrosenstr. 12, 8000 
München 70, 089/714 33 78. 
Scheck, Bargeld, Rechnung. 
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Seikosha GP-500 CPC (ohne 
Kabel) u. 128K Speicherer- 
weiterung zu verkaufen! VB 
350 DM. Tel. 08071/6268 
Verkaufe orig. Discovery Plus 
von Siren 3“ Diskette, incl. 
Discus 1-3 (100 Problemlö- 
sungen). Preis VB. 09561/ 
63224 

Tabellenstar für Schneider 
CPC. Professionelle Sportta- 
bellenverwaltug bis 20 Ver- 
eine m. Eingabeeditor, Sta- 
tistik etc. Disk. 79 DM. J. 
Mickler, Am Shloßpark 44, 
4780 Lippstadt, 02941/ 
21303 


** HÖCHSTPREISE ** 
für gebr. COMMODORE/ 
SCHNEIDER bei Computer- 
neukauf bietet C.V.T., 
55 Trier, Pf 2106 T. 0651/ 
16366 


Suche Lernprogramme u. 
Spiele f. CPC6128. Tausche 
Spiele dafür: Sam, Defender, 
Fist, Flugsimulator, Sorcery. 
Und suche Kontakt. T. 02271/ 
51692 nachmittags. So 
schnell wie möglich anrufen! 
Suche Kontakt zu anderen 
CPC-Usern im Raum 8300 
Landshut, Tel. 0871/62993 


*#**** PROGRAMME VON ARNOR ***** 
Siehe SCHN. AKTIV 10/86, S. 82 
PROTEX (d/R) DM 99/158; PRO- 
MERGE (d/R) DM 99/139; MAXAM 

(d/R) DM 99/158; UTOPIA DM 119 

DENISOFT G. Denissen 

Postfach 106421, 28 Bremen 1 


TEST 


AUFSCHRAUBEN- 
EINSTECKEN - FERTIG 


Ein idealer PC, denn zu zwei Disketten-Laufwerken gesellt sich 
noch eine Festplatte. Die muß noch nicht einmal montiert werden — 
Deckel auf — reinstecken — Deckel zu. Was die Vortex-Harddisc kann — 

unser Bericht sagt es Ihnen. 


Mit großen Anzeigen (... und plötz- 
lich gibt es für den Schneider PC 
1512...) wirbt der bekannte 
Schneider-CPC-Tuner Vortex nun 
für ein neues Produkt: eine 20 MB- ° 
Festplatte in Steckkartenausfüh- 
rung für die PCs. 

Während Schneider bisher nur Ein- 
bauversionen solcher Speichergigan- 
ten anbietet, hat Vortex den eigent- 
lich sinnvolleren Weg beschritten. 
Kein Diskettenlaufwerk muß der 
Harddisc weichen. Keinerlei größe- 
re Mechanikarbeiten müssen durch- 
geführt werden. Man braucht zum 
Einbau zwar einen Schraubendre- 
her, aber nur dazu, damit die Karte 
befestigt werden kann. Alles andere 
kann ohne Werkzeug geschehen. 
Beim Verfasser ist die Drive-Card 
nun seit Monaten eingebaut und 
läuft zur vollsten Zufriedenheit. 
Deshalb ein kleiner Erfahrungsbe- 
richt. Die Auslieferung des Fest- 
plattenlaufwerkes — inclusive Con- 
troller, Handbuch, Installationsan- 
weisung für GEM und der Diskette — 
geschah gut geschützt in einer Styro- 
porverpackung. 


DAS HANDBUCH IST 
AUSREICHEND 


Anfangs war ich etwas erstaunt 
über den geringen Umfang des 
Handbuches, aber es ist wirklich 
völlig ausreichend. In anschaulicher 
Weise wird gezeigt, wie die Karte 

in den Schneider PC eingebaut wer- 
den muß. Hintere Abdeckung des 
PCs abnehmen, Befestigungsschrau- 
be lösen, Karte einstecken und wie- 
der befestigen. Fertig ist der Ein- 
bau. Die Karte belegt I 1/2 Steck- 
plätze. Nur ein Punkt ist nicht 
ganz so in Ordnung, wie Vortex ihn 
schreibt: ‚‚Eigentlich wurde die 
Vortex card speziell für den neuen 
Schneider PC entwickelt (die paßt 
nämlich wirklich rein!)“ (Ende 

des Handbuchzitates). 

Aber lassen wir das mal dahinge- 
stellt. Die Vortex-Drive-Card pafst 
wirklich rein, wenn auch beim vor- 
liegenden Exemplar etwas sehr 


strenggehend. Auch der Slot-Deckel 
paßt nicht mehr ganz so sauber 

wie vorher. Dies können aber 

auch Fertigungstoleranzen des PCs 
sein. Dieser beim vorliegenden 
Exemplar aufgetretene Punkt tritt 
weit in den Hintergrund, wenn 


Nun muß nur noch installiert wer- 
den. Hierzu braucht man ebenfalls 
nur nach dem Handbuch vorzuge- 
hen. Zunächst muß die Harddisc for- 
matiert und die Partition erstellt 
werden. Leider läßt sich Vortex 
nicht näher über die Partition aus, 
sondern beschreibt nur, wie diese zu 
erfolgen hat! Danach müssen die 
Systemdateien und alles, was man 
sonst noch haben will, übertragen 
werden. Ein paar weitere mitgelie- 
ferte Blätter informieren darüber, 
wie GEM installiert werden kann. 


Die Vortex- 
Karte: 
Controller und 
Laufwerk auf 
Steck-Karte 


man sich überlegt, welchen Vorteil 
man gegenüber der Schneider-Hard- 
disc-Version hat. In der Version 
PC1512 DD stehen die zwei Disket- 
tenlaufwerke weiterhin zur Ver- 
fügung! 

Das Auspacken der Karte, Sichten 
und Lesen der Unterlagen nimmt 
weit mehr Zeit in Anspruch als der 
Einbau, der im Handbuch sehr gut 
gezeigt ist. Innerhalb weniger Minu- 
ten ist die Karte eingebaut. 
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Das ist eigentlich alles, was man 
über die Aufrüstung mit der Drive- 
Card wissen muß. Ein Punkt, der 
mich allerdings etwas gestört hat: 
Von der Harddisc kann nur MS-DOS 
gebootet werden. Hier hat Schnei- 
der die Nase etwas vorn, denn mit 
deren Harddisc-Installationspro- 
gramm wird bewirkt, daß beim spä- 
teren “booten‘ zwischen DOS- 
PLUS und MS-DOS gewählt werden 
kann. Hierzu bleibt nur zu sagen: 


,EEEEE 
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Aufschrauben—Reinstecken—Zuschrau- 
ben. Das ist die ganze Einbau-Anleitung. 
Ein Schraubenzieher genügt. 


Auf Ihr Vortex-Mannen, das schafft 
ihr doch auch noch! 


BISHER KEINE PROBLEME 


Nun zu meiner Erfahrung mit der 
Karte. Diese läuft nun seit Monaten 
zur völligen Zufriedenheit. Zwar 
wurde aus meinem ursprünglich 
völlig geräuschlosen PC ein leise vor 
sich hinpfeifendes Gerät, aber das 
haben Harddiscs nun mal so an sich. 


Das Geräusch erreicht auf keinen 
Fall den Pegel, den andere CPCs 
durch den eingebauten Lüfter ver- 
ursachen. 

Die Harddisc wurde zu Testzwecken 
mehrfach vorformatiert, wieder neu 
formatiert, mit Dateien 'vollgepackt. 
wieder gelöscht usw. Bei all den Ar- 
beiten trat bisher kein Fehler auf. 
Auch die Wärmeentwicklung hält 
sich derart in Grenzen, dafs der 
Slotdeckel ruhig geschlossen blei- 
ben kann. Obwohl viele Stimmen 
immer aussagen, das Netzteil des 
PCs wäre schwach ausgelegt und es 
würde bei Vorhandensein von zwei 
Laufwerken und einer Harddisc 

zu Problemen kommen, kann ich 
das auf keinen Fall bestätigen. 

Der Schneider PC läuft nun seit 
Wochen mit Harddisc, 640 KB- 
RAM und einem eingebauten 
V-Chip ohne irgendwelche Störun- 
gen. 

Eines habe ich allerdings seit gerau- 
mer Zeit geändert: Bei mir kann 
sowohl DOS-PLUS als auch MS- 
DOS gebootet werden. 

Seit dem Einbau der Harddisc habe 
ich erst wirklich einen PC und 
kann über die anderen “Disk- 
Jockeys‘ nur noch lächeln. 

Die Ausgabe von 1398,— DM hat 
sich auf alle Fälle für mich gelohnt. 
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CP/M, SCHNEIDER 
UND 
VORTEX 


CP/M (Control Program for Micro- 
computer) von Digital Research war 
eines der ersten Betriebssysteme, 
welches sich ein wenig um Kompa- 
tibilität zwischen den Computern 
verschiedener Hersteller bemühte. 
Zur Geburtsstunde des Betriebs- 
systemes waren diese Rechner aller- 
dings noch im professionellen Be- 
reich zu suchen. Unter den ersten 
Homecomputern, die nach CP/M 
trachteten, war der Schneider 

CPC 464. Damals, zum Zeitpunkt 
der ersten Presseberichte über den 
Amstrad, war dies eine Sensation. 
Mit der — nachrüstbaren — Disket- 
tenstation erwarb der Käufer das 
Betriebssystem und konnte sich als 
Aufsteiger in die Profiklasse fühlen. 
Nur, was hatte er davon? 

Vorerst ließ sich alleine mit der 
schönen Diskette nichts anfangen. 
Die meisten Anwender übten sich 
fleißig in der Befehlssyntax und 
warteten auf Software. Denn der 
Traum, einfach die vorhandenen 
CP/M-Programme zu nutzen, war 
schon ausgesträumt. Die Sache 
scheiterte ja bereits am unterschied- 
lichen Diskettenformat und leider 
auch an den unterschiedlichen 
Versionen der Betriebssysteme. 
Außerdem war der vorhandene Spei- 
cher des CPC mit 64 K wirklich zu 
knapp bemessen. Man wagte gar 
nicht zu hoffen, dat es eine dBASE- 
Version geben sollte, die mit die- 
sem Platz auskommen konnte. 
Aber ein Anfang war gemacht und 
es war nur eine Frage der Zeit, bis 
Fremdhersteller den Homecompu- 
ter als CP/M-Maschine entdeckten. 
Vortex, eine dieser Firmen, die sich 
auf die Versäumnisse anderer stürz- 
te, widmete sich zuerst den Dis- 
kettenstationen der Firma Schnei- 
der. Die Probleme waren ja be- 
kannt. Das unübliche 3-Zoll-Format 
und div zu geringe Speicherkapazität. 
Als einziger Vertreiber dieser Disket- 
tenstation konnte Schneider nicht 
genügend Bedarf wecken, um die 
Produktionskosten einer Diskette 
niedrig zu halten. Es fanden sich 
nicht genügend Käufer, um eine 
hohe Massenproduktion anlaufen 
zu lassen. Heute sähe dies zwar an- 
ders aus und Amstrad/Schneider 
könnte durch seine Marktposition 
ein neues Format durchsetzen, aber 
damals waren eben die Anwender 
noch spärlich. Dazu war der Spei- 
cherplatz, den die Diskette bietet, 


mit 180 K etwas knapp gehalten. 
Umdrehen und die zweite Seite nut- 
zen, war da nur eine Notlösung. 
Wichtig ist der Platz einer Seite, 
denn Umdrehen ist genauso lästig 
wie das Wechseln (wenngleich ein 
wenig billiger). Kein Wunder also, 
daf5 Peripheriehersteller sich sofort 
auf diesen Schwachpunkt stürzten. 
5.25 Zoll Laufwerke versprachen 
ein Geschäft zu werden und wurden 
bald überall angeboten. Daß sich 
schließlich das Gerät der Firma 
Vortex durchsetzen konnte, bewies 
unter anderem die Qualität des Lauf- 
werkes. Es fehlte nur noch eine 
Speicherkarte, um endlich CP/M 
nutzen zu können. Auch hier gab es 
mehrere Anbieter, doch hatte sich 
inzwischen die Fleiner Firma einen 
ausgezeichneten Namen gemacht 


TIPS & TRICKS 


software dagegen ist fast nur auf 
Diskette zu erhalten und da nur 

im 3-Zoll-Format. 

Nach und nach besserte sich zwar 
die Situation, besonders bei CP/M- 
Software, doch könnte in dieser Be- 
ziehung ruhig noch etwas von den 
Softwareverlagen getan werden. 
Noch schlimmer war jedoch, dafs 
manches Programm nach Einbau 
der Speicherkarte nicht mehr lief. 
Und da Ihnen dies auch heute noch 
passieren kann, eine kurze Er- 
klärung: 

Bei jedem Systemstart, also beim 
Einschalten, macht das Betriebs- 
system einen sogenannten ROM- 
Walk“. Dabei wird auch die Periphe- 
rie entdeckt, da jedes ROM etwa 

4 Byte zu dieser Kennung im Ar- 
beitsspeicher belegt. Dies betrifft 


SOFTBOX- 
TIPS 


Da wir von Lesern bzw. Bezie- 
hern von „Softbox“-Disketten 
immer wieder angerufen werden, 
weil angeblich diese Disketten 
nicht in Ordnung sein sollen, 
sehen wir uns zu nachfolgendem 
Hinweis veranlaßt. 
Eine Inhaltsverzeichnis-Ausgabe 
von Disketten wird durch den 
Befehl 

CAT (ENTER) 
aufgerufen. Das heißt, es sind die 
drei Buchstaben “CAT“ über 
die Tastatur einzugeben und 
dann ist die ENTER-Taste zu 
drücken. Auf dem Bildschirm er- 
scheint das Inhaltsverzeichnis 
(Directory) der eingelegten 
Diskette. 
Ist der Programmname bekannt, 


dann kann das gewünschte Pro- 
gramm auch durch 

LOAD“ Programmname“ 
geladen oder mit 

RUN“Programmname“ 
geladen und gleich gestartet 
werden. 
Befehlseingaben wie RUN 
“DISC“ oder RUN“ Start‘, wie 
sie bei Spielen manchmal erfor- 
derlich sind, führen nicht zum 
Erfolg. Ab Heft 2/87 haben wir 
eine Vorabversion eines Auswahl- 
programmes auf den Disketten 
untergebracht (ab Heft 3/87 die 
Endversion). 
Der Aufruf hierfür lautet 
RUN“INHALT“ (Enter-Taste 
nicht vergessen!). Nach dem Start 
von Inhalt kann mit den Cursor- 
Steuertasten das Programm ange- 
wählt und durch die Enter-Taste 
gestartet werden. 
Wir hoffen, daß es nun weniger 
Probleme bei Ihnen gibt. 


und konnte den Markt für sich er- 
obern. Zum einen gab es eine Spei- 
cherkarte mit 64 K, die sich nicht 
erweitern ließ (und inzwischen 
auch nicht mehr verkauft wird), 
eine andere Version der Platine 
konnte auf Wunsch bis 512 K auf- 
gerüstet werden. 

Aber es gab auch Probleme. Auf 
der 5.25-Zoll-Diskette wurden kei- 
ne Programme für den Schneider 
angeboten, bis heute ist das Ange- 
bot sehr spärlich. Solange es um 
Spiele ging, konnte der Besitzer ei- 
nes CPC 464 auf seinen Kassetten- 
rekorder zurückgreifen. Die Lade- 
zeiten mochten ihn vielleicht är- 
gern, doch konnte mit der Kasset- 
tenversion auch einiges Geld beim 
Kauf gespart werden. Anwender- 


übrigens auch die normale Disket- 
tenstation und ist mit der Grund, 
warum Ihr CPC sofort weils, dafs 
eine solche angeschlossen und be- 
triebsbereit ist. Einige Programme 
kollidieren eben mit diesen Spei- 
cheradressen der Erweiterungskarte 
oder der Diskettenstation und lau- 
fen nicht mehr. In früheren Zeiten 
half es nur, den CPC wieder aufzu- 
schrauben und wieder starten. 

Auf die Dauer sicher keine tragbare 
Lösung. Neuere Erweiterungen 
enthalten jedoch einen “Abschalt- 
befehl“, den DISBOS, der die Kar- 
te für den ROM-Walk unkenntlich 
machte. Man vergais auch nicht, 

für die bereits verkauften Erweite- 
rungen ein Eprom anzubieten, um 
diese gleich zu setzen. Nun endlich 
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waren alle Vorbereitungen getrof- 
fen, um in die ‚große CP/M-Pro- 
grammwelt‘‘ einzusteigen. 
Tatsächlich konnten namhafte 
Softwarehäuser jetzt auch nicht 
mehr den Homecomputer überse- 
hen. Die drei „Klassiker‘‘, dBase, 
WordStar und Multiplan, wurden 
in einer angepaßsten Version zu ei- 
nem — bis dahin nicht für möglich 
gehaltenen Preis — für den CPC 
angeboten. Kleinere und relativ 
unbekannte Programme folgten. 
Ganz nebenbei wurde der CPC auch 
in die Public Domain Gemeinschaft 
aufgenommen, denn gerade hier 
sind viele Programme nur unter 
CP/M erhältlich. 

Schneider, CPM und Vortex wur- 
den somit zu einer untrennbaren 
Troika. Manch einer fragt sich natür- 
lich, warum er sein System erwei- 
tern sollte. Nun, niemand kann et- 
was gegen den reinen Spielcompu- 
ter sagen, der nur zum Vergnügen 
da ist, und mit einigen kleinen An- 
wendungen (etwa dem Schreiben 


ANSPRÜCHE STEIGEN 
MIT DER ZEIT 


eines Briefes) noch unterbeschäftigt 
wird. Aber die meisten User werden 
schon schnell von alleine merken, 
dafs ihre Ansprüche mit der Zeit stei- 
gen. Aus dem Brief, der eben noch 
genügte, wird schnell der Schulauf- 
satz, ein Referat, oder eine Doktor- 
arbeit. Und zum einfachen Platten- 
archiv soll schnell eine große Lite- 
raturdatei hinzukommen. Zu diesem 
Zeitpunkt entschließen sich viele 
zum Umsteigen auf einen neuen 
Computer der ‚„Superklasse‘, eine 
sogenannte professionelle Maschi- 
ne, wie sie ja auch Schneider mit 
dem PC 1512 anbietet. Die Eigner 
eines CPC vergessen dabei zu gerne, 
dafs sie ihr Gerät zu jeder gewünsch- 
ten Konfiguration ausbauen kön- 
nen. Vom Kassettenrekorder bis 

zu Harddisc, vom Basicinterpreter 
bis zu den Betriebssystemen CP/M 
und MS-DOS (bei letzterem haben 
Sie durchaus richtig gelesen). 
Schneider aktiv will Ihnen dabei 
helfen, Ihren ‚‚idealen“ CPC zu 
entdecken. In dieser Ausgabe lesen 
Sie einen Basicbericht über die 
Datenbank dBase, die unter CP/M 
fast alle Verwaltungssorgen ab- 
nimmt. In der nächsten Ausgabe 
werden wir dann einmal die 
Hardwareseite (Speichererweite- 
rung) betrachten und einen ausge- 
zeichneten Diskettenmanager als 
Listing vorstellen. 

Sie werden staunen, was alles in 
diesem „„Homecomputer“ steckt. 
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FARBENPRACHTIGER 
KNOCKOUT 


Vom Spiel ohne Grenzen, sicherlich noch aus älteren 
TV-Zeiten bekannt, bis hin zum Catchen für 
Sportenthusiasten — es gibt wieder neue Spiele für 
Schneider-CPC-Besitzer. Wir testeten für Sie 


“It’s A Knockout“, so 
hieß eine Eurovisionssen- 
dung im englischen Fern- 
sehen, die bei uns unter 
dem Namen “Spiel ohne 
Grenzen‘ bekannt wurde 
und in ihren besten Zei- 
ten sehr beliebt war. Mit 
viel Wasser und Schmitr- 
seife wurden von euro- 
päischen Mannschaften, 
meist Sportvereinen, mehr 
oder weniger humorvolle 
Wettkämpfe ausgetragen. 
Die Ausgangssituation, 
Verkleidungen und Ideen 
waren zu Beginn der Sen- 
dereihe sehr originell und 
so wundert es denn nicht, 
dafs die Softwarefirme 
Ocean irgendwann auf die 
Idee kam, den CPC damit 
zu füttern. Für den Com- 
puter wurde jedoch die 
europäische Gemein- 
schaft etwas verkleinert. 
Bis zu sechs Personen 
können teilnehmen, indem 
sie sich ein Land auswäh- 
len, welches sie dann zu 
vertreten haben. Einzel- 
spieler müssen sich ihre 
Kontrahenten vom Com- 
puter simulieren lassen, 
der die Punkte zufällig 
und manchmal recht 
hoch verteilt. 


SECHS SPIELE 
MÜSSEN ABSOLVIERT 
WERDEN 


Anschließend gilt es, sich 
in sechs verschiedenen 
Spielen genügend Punkte 
zu verdienen, um den er- 
sten Platz zu erreichen. 
Der Austragungsmodus 
gleicht der Originalsen- 
dung, er ist recht kompli- 
ziert. Damals galt es halt, 
Umbaupausen und Rei- 
nigungsarbeiten (viel, 

viel Schmierseife) zu über- 
brücken. Daß im CPC 

ein scheinbares Durchein- 


ander gespielt wird, läfst 
wenigstens keine Lange- 
weile aufkommen. Ver- 
lassen Sie sich einfach 
auf den Computer, der 
die jeweilige Mannschaft 
auffordert, das nächste 
Spiel zu übernehmen. 
Zur Sehnenscheidenent- 
zündung im Handgelenk 
könnte der Hindernis- 
lauf führen. In bewährter 
Sportspiel-Manier gilt es, 
den Joystick hin- und her- 
zureißßen, um zu einer 
erfolgversprechenden Ge- 
schwindigkeit zu kom- 
men. Dabei muf3 man 
zusätzlich über Wasser- 


JOYSTICK- 
VERSCHLEISS GLEICH 
EINPLANEN 


gräben, Baumstämme und 


Bälle springen. Eine arge 
Belastung für den Joy- 
stick, man sollte den Ver- 
schleiß einplanen. 

Bei “Flying Flans‘“, den 
fliegenden Torten, geht 
es etwas ruhiger zu. Der 
Spieler muß mit einem 
Tablett Torten auffangen, 
die ihm von der gegneri- 
schen Mannschaft per 
Wippe über eine Mauer 
geworfen werden. Zumin- 
dest zu Beginn des Spie- 
les gelingt es hier am 
leichtesten, Punkte zu 
sammeln. Jede nicht auf- 
gefangene Torte führt 
aber dazu, daß man über 
die Spielfläche rutscht 
und weitere Bäckereier- 
zeugnisse verfehlt. 

Im “Harlem Hüpfer“ be- 
nannten Programmteil 
müssen Sie Bälle auffan- 
gen, die Ihnen von einem 
(stillsttehenden) Kamel aus 
zugeworfen werden. Lei- 
der ist der Boden mit 
Schmierseife bearbeitet 
worden und es wird jedem 


Mühe machen, gegen das 
Gummieband anzuren- 
nen, welches ihn festhält. 
Zudem fällt auch nicht 
jeder Ball gleich, so dai> 
erst die Übung einigen 
Erfolg bringen wird. 
Gleich vier Spieler dürfen 
Sie beim “Absprung 

von der Titanic‘ simulie- 
ren. An einem schräg 
nach unten verlaufenden 
Seil rutschen Sie über 
Rettungsringe, die auf 
dem Wasser schwimmen. 
Nachdem Sie das Seil 
losgelassen haben, treffen 
Sie vielleicht einen der 
Ringe und der dazugehö- 
rige Punktestand wird 
Ihnen gutgeschrieben. 
Bei der “Wurmdiät‘‘ geht 
es trockener zu. Im Wett- 
lauf gegen das “CPC- 
Huhn“ gilt es, Würmer 
aus dem Boden zu zie- 
hen und auf ein Tablett 
zu legen. 

Zuletzt geht es dem 
Brontosaurier an den 
Kragen, er muß erschla- 
gen werden. 

Dies geschieht mittels ei- 
nes Gewichtes, das über 
einer waagrechten Reihe 
von Kratern hängt und 
dort bewegt werden kann. 
Erscheint “Brontos“ 
Kopf aus einem der 
Schlammlöcher, muf3 man 
die Tonne über die richti- 
ge Stelle bringen und fal- 
len lassen. 

Je nach Reihenfolge der 
Spiele erhalten Sie nun 
Ihren Punktestand mitge- 
teilt. 


MAXIMAL DAS 
MITTELFELD IST 
ERREICHBAR 


Wer alleine gegen den 
Computer spielte, darf 
sich glücklich schätzen, 
im Mittelfeld der Natio- 
nen zulliegen. Wer hätte 
gedacht, daß der CPC 
gerne zu seinen Gunsten 
etwas schummelt? Oder 
sollte hier nur ein Schwie- 
rigkeitsgrad erhöht 
werden? 

Nun zur Spielbewertung: 
“It’s A Knockout“ stellt 
keine hohen Ansprüche. 
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Zwiespältige Gefühle: 
Rock’n Wrestle. Computer 
gewinnt immer: It’sa 
knockout. 


Ein bilschen Geschick- 
lichkeit mit dem Joystick 
und ein wenig Reaktions- 
vermögen sind alles, was 
der Spieler mitbringen 
muß. Die Grafik ist et- 
was grob, man darf je- 
doch nicht vergessen, daß 
der Bildschirm im Modus 
Null abläuft und somit 
sehr farbenprächtig ist. 
Die Sprites sind zudem 
sehr groß dargestellt, was 
ohnehin zur gröberen 
Darstellung verführt. 
Trotzdem verlaufen Bild- 
schirmbewegungen ruck- 
frei und die Steuerung 

ist sehr direkt. Im Grun- 
de genommen will ‘It’s 

A Knockout“ auch gar 
kein Superprogramm sein. 
Es stellt den Anspruch, 
ein Familienspiel darzu- 
stellen, um etwa an einem 
verregneten Sonntagsnach- 
mittag die ganze Familie 
oder den Freundeskreis 
vor den Computer zu lok- 
ken. Und genau hierfür 


möchten wir es empfehlen. 


(GS) 


ROCK’N WRESTLE 


Man muß sich wundern, 
wie lange man auf diese 
Spielidee warten konnte. 
Nachdem sämtliche olym- 
pischen Disziplinen abge- 
klappert waren, nachdem 
Fuisball ohnehin ein alter 
Hut war und Sportarten 
aus ferner Zukunft im 
Computer auftauchten, 
erst dann erschien 
“Rock’n Wrestle‘, hier- 
zulande “Catchen‘ ge- 
nannt. Zwar ist es bei vie- 
len Programmen, die man 
kaufen kann, leicht, mit 
dem CPC in den Clinch 
zu gehen, doch diesmal 
ist es ernst gemeint. 

Von diesem Spiel lag uns 
nur die Kassettenversion 
vor und so standen wir 
wieder vor der Frage, ob 
wir uns an der Titelgra- 
fik erfreuen sollten, oder 
ob wir uns darüber är- 
gern sollten. Denn gerade 
dem Benutzer eines Da- 
tenrekorders wird die 
lange Ladezeit stören, die 
diese “Plakate‘‘ jedesmal 
benötigen. Wie dem 

auch sei, das wirklich 
sehr gekonnt program- 
mierte Bild zeigt schon 
mal, worum es geht. 
Zwei, auf das Innigste 
miteinander verbundene, 
Catcher in voller Aktion. 
Wie in letzter Zeit so 


bei ‘‘Get Dexter“, 
“Macadam Bumber“ und 
vielen anderen Spielen 
auf. Zumindest im CPC 
scheint sich also der ei- 
genwillige Haarschnitt 
zu behaupten. 

Während das folgende 
Spiel geladen wird — 
auch das braucht seine 
Zeit — tut man gut daran, 
die Anleitung zu studie- 
ren. Diese beschränkt 
sich, was den deutschen 
Teil angeht, auf ein paar 
Zeilen, wobei der gröfste 
Teil auch noch für die 
Betätigung der Run- 
Tastenkombination und 
für den (äußerst — so 

die Anleitung) unwahr- 
scheinlichen Fall einer Be- 
schädigung draufgeht. 
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Das eigentliche Spiel be- 
ginnt sofort, ohne dat 
man irgendwelche Start- 
tasten betätigt hat oder 
gar ein Menü zur Tasten- 
belegung zu sehen be- 
kommt. Tatsächlich kann 
man die Spielerauswahl 
und die Wahl zwischen 
Joystick und Tasten 
(welche?) während des 
Kampfes vornehmen. 
Dann trennt man die bei- 
den Kontrahenten und 
beginnt die erste Runde. 
Wer mit dem Joystick 
gegen den Computer an- 
tritt, wird seine Bewe- 
gungsvarianten sicherlich 
bald heraus haben, viele 
sind es nicht. Wer dage- 
gen auf der Tastatur spie- 
len will, wird einige Zeit 
suchen müssen, um über- 
haupt die richtigen zu 
finden. 

“Rock’n Wrestle‘ ist 
kein Spaß für das Auge. 
Die Darstellung der 
Catcher ist etwas zu grob, 
die Bewegungen nicht 
fließend. Die “Punks“ 
sind nicht gefühlvoll zu 
steuern, auch wenn man 
mit der Tastatur arbeitet. 
Der starre Hintergrund 
kann ebenfalls nicht be- 
geistern. Dargestellt ist 
ein scheinbar sehr andäch- 
tiges Publikum. Belebung 
erfährt das Spiel auch 
nicht durch den Sound. 
Dieser besteht nur aus 
einem Geräusch, — ver- 
gleichbar dem Scheppern 
einer mit Nägeln gefüll- 
ten Dose — sobald einer 
der Ringer zu Boden 
geht. 


FAZIT 


Trotzdem kann man 
“Rock’n Wrestle“ nicht 
völlig zerreißen. Zu zweit, 
wenn es mehr Spaß 
macht, kann das Spiel 
sicher unterhalten. Dem 
Liebhaber und Sammler 
der Sportgames bleibt es 
mangels Konkurrenzpro- 
duktes ohnehin nicht er- 
spart. Somit reduziert 
sich das Urteil — trotz 
allem, möchte man sa- 
gen — auf ein: “Bedingt 
Empfehlenswert“. (GS) 
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KOMMENTAR 


„test” HAT 
WIEDER 


ZUGESCHLAGEN 


Glänzte schon der im Oktober 1984 
von der Zeitschrift „test“ veröffent- 
lichte Artikel nicht gerade durch 
Sachkompetenz und Aktualität, so 
hat sich die Zeitschrift nun wie- 
der ein besonderes Kunststück ge- 
leistet. In der Januar-Ausgabe 1987 
erschien unter der Rubrik “Test 
Personal Computer“ der Artikel 
“Einstieg für Profis“ 
In diesem Testbericht schafften es 
die Autoren wieder einmal, dats ge- 
schmunzelt werden darf und Fach- 
journalisten die Zornesröte ins 
Gesicht stieg. Vergleichen und be- 
werten sie doch tatsächlich Compu- 
ter in der Preisklasse von ca. 
9150,— DM (ohne Drucker) mit 
solchen zu ca. 1800,— DM mit 
Drucker. Das ist in etwa mit einem 
Test zu vergleichen, bei dem sich 
ein 50.800-DM-Auto mit einem 
Mofa zu messen hat. 
Unterschieden wird dabei zwischen 
Kompatiblen, mausorientierten 
Systemen und weiteren (bisher ist 
noch keiner der kompetenten Fach- 
journalisten auf eine derartige Idee 
gekommen). 
Mausorientiert können diese Com- 
puter fast alle sein, denn das ist vor 
allem eine Frage der Anwendungs- 
Software und der Benutzeroberflä- 
che. Dafä bei diesem Artikel bzw. 
seiner Gegenüberstellung viele Fuß- 
noten vorhanden sind, zeigt eigent- 
lich sehr deutlich, in welchem 
Dilvmma sich die Tester befanden. 
Zwar sollen einige Tests durch In- 
formatiker durchgeführt worden 
sein, aber das hilft dem test-Leser 
auch nichts, wenn ein Großteil der 
getesteten Systeme in der Testver- 
sion gar nicht mehr auf dem Markt 
sind. Verwunderlich ist auch, dafs 
sowohl die Auswahl als auch die 
meisten Tests von der englischen 
Partner-Organisation Consumer’s 
Association durchgeführt wurde. 
Zwar weist test daraufhin, daß die 
veröffentlichten Ergebnisse die 
auch auf dem deutschen Markt 
erhältlichen Geräte betreffen, aber 
falls man die Geräte nicht in 
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Deutschland besorgt hat, entspre- 
chen diese nicht immer den hier er- 
hältlichen. Es wäre sicherlich inter- 
essant, ob die Geräte also deutsche 
Ausführungen waren oder nicht. 
Durch die veröffentlichten Funk- 
störprüfungswertungen drängt sich 
allerdings der Verdacht auf, daß 

es keine für Deutschland gefertigten 
Geräte waren. 

Da der Artikel aber für die ‚„Ah- 
nungslosen‘“ (Originalausdruck) ge- 
dacht ist, ist es auch kein Wunder, 
dafs die im Test veröffentlichten 
Geräte gar nicht mehr aktuell sind. 
In einem Markt, wie er bei Compu- 
tern vorherrscht, ist dies auch kein 
Wunder, wenn man einen Testbe- 
richt fast ein Jahr nach der Be- 
schaffung veröffentlicht. Die Prüf- 
muster wurden laut Angabe der 
Zeitschrift test von Januar bis 
März ’86 gekauft. 

Die Angaben, die deshalb gemacht 
werden, sind ebenso veraltet wie 
unvollständig. 

Vielleicht sollte man zu solchen 
Tests doch einen Fachjournalisten 
zu Rate ziehen, denn dann wären 
solche Tests wenigstens noch eini- 
germaßen aktuell und ein Kilo- 
byte würde dann auch richtig ab- 
gekürzt werden, nämlich KB und 
nicht kb (ein kleines k steht für 
1000)! 

Auch andere Ungereimtheiten und 
Fehler (das DOS des IBM hat die 
Bezeichnung PC-DOS und nicht 
MS-DOS) wären dann sicherlich 
nicht vorhanden. Vor allem würde 
bei den Kompatiblen untersucht 
werden, ob sie auch wirklich alle 
kompatibel sind und die Unterschie- 
de herausgestellt werden. 

Alles in allem ist dieser Testbericht 
in keiner Weise geeignet, einem 
Computer-Interessenten weiterzu- 
helfen. Eigentlich ist die Zeitschrift 
test doch sonst für die Verbrau- 
cher glaubwürdiger, aktueller und 
auch informativer. Hoffen wir, 

daß sich diesem zweiten Computer- 
test nicht noch mehr Veröffent- 
lichungen dieser Art anschließen. (LM) 
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VERDIENEN SIE GELD 
MIT IHREM COMPUTER! 


WIR ZAHLEN BIS ZU 1000DM:! 


Haben Sie einen CPC 464 oder 664 ? Einen 6128 ? Oder 
einen JOYCE? Können Sie programmieren? In Basic oder 
Maschinensprache? Dann bietet SCHNEIDER AKTIV 
Ihnen die Möglichkeit, mit diesem Hobby Geld zu verdie- 
nen! 


Wie? Ganz einfach. Sie senden uns die Programme, 
die Sie für einen Abdruck als geeignet halten, zusammen 
mit einer Kurzbeschreibung, aus der auch die verwende- 
te Hardware — eventuelle Erweiterungen — benutzte Pe- 
ripherie — hervorgehen muß, ein. 


Benötigt werden: eine Datenkassette oder Diskette! 
Wenn die Redaktion sich überzeugt hat, daß dieses Pro- 
gramm läuft und sich zum Abdruck eignet, zahlen wir 
Ihnen pro Programm je nach Umfang bis zu DM 300, —'! 


Name des Einsenders: 


Für das ‚‚Listing des Monats‘‘ sogar DM 1.000,'—. 
Sie erhalten Ihre Kassette /Diskette selbstverständlich 

zurück, wenn Sie einen ausreichend frankierten 

Rückumschlag mit Ihrer Adresse beifügen. 


Bei der Einsendung müssen Sie mit Ihrer Unterschrift ga- 
rantieren, daß Sie der alleine Inhaber der Urheber-Rechte 
sind! Benutzen Sie bitte anhängendes Formular! (Wir 
weisen darauf hin, daß auch die Reaktion englische 
Fachzeitschriften liest und ‚‚umgestaltete‘‘ Programme 
ziemlich schnell erkennt). 


Um Ihnen die Arbeit zu erleichtern, finden Sie hier ein 
Formular. Sie können es ausschneiden oder fotokopie- 
ren. 


Straße /Hausnr. /Tel.: 


PLZ/Ort: 


Hiermit biete ich Ihnen zum Abdruck folgende(s) Programm(e) an: 


Benötigte Geräte: 


Beigefügt [| Listings [_] Kassette [_] Diskette 


Ich versichere, der alleinige Urheber des Programms zu sein! 
Hiermit ermächtige ich die Redaktion, dieses Programm abzudrucken und wirtschaftlich zu verwerten. Sollte es in 
den Kassetten-Service aufgenommen werden, erhalte ich auch dafür eine entsprechende Vergütung. Das Copyright 


geht an den Verlag über. 


Rechtsverbindliche Unterschrift 


SCHNEIDER 
AKTIV 


Postfach 1107 
8044 Lohhof 


